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Preface 


The HP Fortran Programmer’s Reference is a language reference for 
programmers using H P Fortran V2.0 and higher. 11 describes the 
features and requirements of the H P Fortran programming language. 

The H P Fortran Programmer's Reference is intended for use by 
experienced Fortran programmers who are interested in writing or 
porting HP Fortran applications. This manual includes information on 
the parallel concepts and directives, as well as optimization of programs 
that use them. 

You need not be familiar with the HP parallel architecture, programming 
models, or optimization concepts to understand the concepts introduced 
in this book. 
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Preface 


New in HP Fortran v2.5 

HP Fortran v2.5 introduces a port of theHP-UX PA-RISC Fortran 
product to the Itanium-based systems. It is source compatible between 
PA-RISC and Itanium. However, Itanium Fortran will not run on PA- 
RISC based systems. 

The H P Fortran v2.5 features described in this reference are upgrades 
from the previous version of HP Fortran v2.0, including: 

• Full Fortran 95 compiler (based on International ANSI/ISO 
standards) for Itanium-based and PA-RISC systems 

• Nativesubset OpenMP implementation 

• Object-oriented Fortran feature optimizations 

• Support for math intrinsic inlining 


xx 


Preface 
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Scope 

This guide covers programming methods for the H P Fortran compiler on 
machines running: 

• HP-UX 11.0 and higher (PA-RISC) 

• HP-UX Hi Version 1.5 (Itanium) 

HP Fortran supports an extensive shared-memory programming model. 
HP-UX 11.0 and higher includes the required assembler, linker, and 
libraries. 

HP Fortran fully supports the international Fortran standards 
informally called Fortran 90 and Fortran 95 as defined by these two 
standards: ISO/1 EC 1539:1991(E) and I SO/1 EC 1539:1997(E). 
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Preface 


Notational conventions 

This section discusses notational conventions used in this book. 

bold monospace I n command examples, bold monospace 

identifies input that must be typed exactly as 
shown. 

monospace In paragraph text, monospace identifies 

command names, system calls, and data 
structures and types. 

I n command examples, monospace identifies 
command output, including error messages. 

italic In paragraph text, italic identifies titles of 

documents. 

I n command syntax diagrams, italic identifies 
variables that you must provide. 

The following command example uses 
brackets to indicate that the variable 
output_fileis optional: 

command i nput_fi I e [output_fi I e] 

Brackets ([ ]) In command examples, square brackets 

designate optional entries. 

Curly brackets ({}), I n command syntax diagrams, text 
Pipe (| ) surrounded by curly brackets indicates a 

choice. The choices available are shown inside 
the curly brackets and separated by the pipe 
sign (| ). 

The following command example indicates 
that you can enter either a or b: 

command {a | b} 
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Preface 


NOTE 


Horizontal ellipses 

(...) 

Vertical ellipses 


Keycap 


I n command examples, horizontal ellipses 
show repetition of the preceding items. 

Vertical ellipses show that lines of code have 
been left out of an example. 

Keycap indicates the keyboard keys you must 
press to execute the command example. 


References to man pages appear in the form mnpgname(l), where 
"mnpgname” is the name of the man page and is followed by its section 
number enclosed in parentheses. To view this man page, type: 

% man 1 mnpgname 

A Note highlights important supplemental information. 


Command syntax 

Consider this example: 

command input_file [... ] {a i b} [output_file] 

• command must be typed as it appears. 

• input_fileindicates a filenamethat must be supplied by the user. 

• The horizontal ellipsis in brackets indicates that additional, optional 
input file names may be supplied. 

• Either a or b must be supplied. 

• [output_file] indicates an optional file name. 
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Associated documents 

The following documents are listed as additional resources to help you 

use the compilers and associated tools: 

• HP aC++Online Programmer's Guide— Presents referenceand 
tutorial information on aC++. This manual is only available in html 
format. 

• HP C/ HP-UX Programmer’s Guide—Contains detailed discussions of 
selected C topics. 

• HP C/ HP-UX Reference Manual—Presents reference information on 
theC programming language, as implemented by HP. 

• CXperf Command Reference—Provides both introductory and 
reference information for using the CXperf performance analyzer. 

• CXperf User’s Guide—Provides information on how to use the CXperf 
perf or ma n ce a n a I ys i s tool. 

• HP-UX Floating Point Guide—Describes how floating-point 
arithmetic is implemented on HP 9000 Series 700/800 systems. It 
discusses how floating-point behavior affects the programmer. 
Additional useful includes that which assists the programmer in 
writing or porting floating-point intensive programs. 

• HP Fortran Programmer's Guide—Provides extensive usage 
information, including how to compile and link, migration tips and 
tools, and how to call C and HP-UX routines for HP Fortran. 

• HPMPI User’s Guide—Discusses message-passing programming 
usi ng H P's M essage-Passi ng I nterface I i brary. 

• HP M LI B User's GuideVECLI B and LAPACK—Provides usage 
information about mathematical software and computational kernels 
for engineering and scientific applications. 

• H P-UX Linker and Libraries User's Guide—Describes how to develop 
softwareon HP-UX usingtheHP compilers, assemblers, linker, 
libraries, and object files. 
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NOTE 


• Parallel Programming Guide for HP-UX Systems—Describes efficient 
methods for shared-memory programming using the H P-UX suite of 
compilers: HP Fortran, HP aC++(ANSI C++), and H P C. This guide is 
intended for use by experienced Fortran, C, and C++programmers 
and is intended for use on HP-UX 11.0 and higher. 

• Programming with Threads on HP-UX—Discusses programming 
with POSIX threads. 

• Threadtime by Scott J. Norton and Mark D. DiPasquale—Provides 
detailed guidelines on the basics of thread management, including 
POSIX thread structure; thread management functions; and the 
creation, termination and synchronization of threads. 

• HP M LI B User’s GuideVECLI B and LAPACK—Provides usage 
information about mathematical software and computational kernels 
for engineering and scientific applications. 

Many of these documents are accessible through the HP document World 
Wide Web site at http://docs.hp.com. To locate a particular document at this 
location, use this site’s search link to search for the document name or 
subject matter. 
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Introduction to HP Fortran 


This chapter summarizes standard features of HP Fortran that are not 
found in FORTRAN 77. This includes the following topics: 

• Source format 

• Data types 

• Poi nters 

• Arrays 

• Control constructs 

• Operators 

• Procedures 

• Modules 

• I/O features 

• Intrinsics 
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HP Fortran features 


HP Fortran features 

The following summarizes features of H P Fortran that are not in 
standard FORTRAN 77 and indicates where they are described in this 
manual. 

Source format 

The fixed source form of FORTRAN 77 is extended by the addition of the 
semicolon (;) statement separator and the exclamation point (!) trailing 
comment. 

HP Fortran also supports free format source code. The format used in a 
source program file is normally indicated by the file suffix, but the 
default format can be overridden bythe+source compile-line option. 

For information about source format, see "Source format of program file” 
on page 13. 

Data types 

• Data declarations can include a kind type parameter—an integer 
value that determines the range and precision of values for the 
declared data object. The kind type parameter value is the number of 
bytes representing an entity of that type, except for complex entities, 
where the number of bytes required is doublethe kind type value. 

In principle, multibyte character data for languages with large 
character sets can be implemented in Fortran by means of a kind type 
parameter for the character data type. H P Fortran, however, uses 
the Extended U nix Code (EUC) characters in file names, comments, 
and string literals. 

• Fortran supports derived types, which are composed of entities of the 
intrinsic types (integer, real, complex, logical, and character) 

or entities of previously defined derived types. You declare derived- 
type objects in the same way that you declare intrinsic-type objects. 

For information about intrinsic and derived types, see "I ntrinsic data 
types” on page 22 and "Derived types" on page 39. 
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Poi nters 

Pointers are variables that contain addresses of other variables of the 
same type. Pointers aredeclared in Fortran 90 with the POI NTER 
attribute. A pointer is an alias, and the variable (or allocated space) for 
which it is an alias is its target. The pointer enables data to be accessed 
and handled dynamically. For more information, see "Pointers" on 
page 47. 

Arrays 

The Fortran 90 standard has defined these new array features: 

• Array sections that permit operations for processing whole arrays or a 
subset of array elements; expressions, functions, and assignments can 
be array-valued. The where construct and statement are used for 
masked-array assignment. 

• Array constructors—unnamed, rank-one arrays whose elements can 
be constants or variables. You can usethe reshape intrinsicfunction 
to transform the array constructor to an array value of higher rank. 

• New types of array: 

- Assumed-shape arrays are dummy arguments that take on the 
size and shape of the corresponding actual arguments. 

- Deferred-shape arrays become defined when they are associated 
with target array objects. 

- Automatic arrays have at least one bound that is not a constant. 
Arrays are discussed in Chapter 4, "Arrays," on page 51. 

Control constructs 

Control constructs 

• The case construct selects and executes one or more associated 
statements on the basis of a case selector value, which can be of type 

INTEGER, CHARACTER Or LOGICAL. 

• Additional forms of the do statement allow branching to the end of a 
do loop and branching out of a do loop. 
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These constructs are described in "Control constructs and statement 
blocks" on page 104. 

Operators 

You can write your own procedures to define new operations for intrinsic 
operators, including assignment, for use with operands of intrinsic data 
types or derived data types; see "Defined operators" on page 155 and 
"Defined assignment"on page 157. 

Procedures 

• Fortran 90 includes a feature called the procedure interface block, 
which provides an explicit interface for external procedures. The 
names and properties of the dummy arguments are then availableto 
the cal ling procedure, allowing the compiler to check that the dummy 
and actual arguments match. For information about interface blocks, 
see "Procedure interface” on page 151. 

• Actual arguments can be omitted from the argument list or can be 
arranged in a different order from the dummy arguments. 

• You can implement user-defined operators or extend intrinsic 
operators, including the assignment operator; see "Defined operators" 
on page 155 and "Defined assignment" on page 157. 

• Dummy arguments to procedures can be given an intent attribute 
(in, out or inout); see "INTENT attribute" on page 148. 

• Subprograms can appear within a module subprogram, an external 
subprogram, or a main program unit; see "I nternal procedures" on 
page 135. 

• Recursive procedures (an extension in HP FORTRAN 77) area 
standard feature of Fortran 90. For more information, see "Recursive 
reference” on page 131. 
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Modules 

A module is a program unit that can be used to specify data objects, 
named constants, derived types, procedures, operators, and namelist 
groups. Partial or complete access to these module entities is provided by 
the use statement. An entity may be declared private to limit visibility 
to the module itself. 

One use of the module is to provide controlled access to global data, 
making it a safer alternative to the COM MON block. The module also 
provides a convenient way to encapsulate the specification of derived 
types with their associated operations. 

For information about modules, see "Modules"on page 161. 

I/O features 

• Nonadvancing I/O 

After a record-based I/O operation in FORTRAN 77, the file pointer 
moves to the start of the next record. I n Fortran 90, you can use the 
advance=no specifier to position the file pointer after the characters 
just read or written rather than at the start of the next record. 
Nonadvancing I/O thus allows you to determine the length of a 
variable-length record. See "Nonadvancing I/O" on page 187 for more 
information. 

• Namelist-directed I/O 

Namelist-directed I/O—previously available as an extension to 
FORTRAN 77—is a standard feature of Fortran 90. This feature 
enables you to perform repeated I/O operations on a named group of 
variables. See "Namelist-directed I/O" on page 183 for more 
information. 
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Intrinsics 

Fortran 90 provides a large number of new intrinsic procedures for 
manipulating arrays. M any of them are elemental, taking either scalar 
or array arguments. I n the latter case, the result is as if the procedure 
were applied separately to each element of the array. 

Other additions include transformational functions that operate on 
arrays as a whole, and inquiry functions that return information about 
the properties of the arguments rather than values computed from them. 

Table 9 on page 78 lists the array-inquiry intrinsic functions. For 
descriptions of all intrinsic procedures, see Chapter 11, "I ntrinsic 
procedures,” on page475. 
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This chapter describes the basic elements of an HP Fortran program. 
This includes the following topics: 

• Character set 

• Lexical tokens 

• Program structure 

• Statement labels 

• Statements 

• Source format of program file 

• INCLUDE line 
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Character set 

The Fortran 90 standard character set, shown in Table 1, consists of 

letters, digits, the underscore character, and special characters. The H P 

Fortran character set consists of the Fortran 90 character set, plus: 

• Control characters (Tab, Newline, and Carriage return). Carriage 
return and Tab are usually treated as "white space" in a source 
program. You can use them freely to make the source easier to read. 

• The pound sign (#) character in column 1 to initiate a comment. This 
is an FI P extension that allows C preprocessor directives embedded in 
source files to be treated as comments. 

• Any other characters in the HP character set listed in Appendix B. 
These characters may be used in character constants, character 
string edit descriptors, comments, and I/O records. 

Fortran 90 character set 


Category 

Characters 

Letters 

A tO Z, a tO z 

Digits 

0 to 9 

U nderscore 

_ 

Special characters 

blank (space) 

: !"%&;<>?$ 

= + -*/(>,.’ 


Lowercase alphabetic characters are equivalent to uppercase characters 
except when they appear in character strings or Hollerith constants. 

H P Fortran supports only the default character type, 
character (kind=i), as described in 'Typedeclaration for intrinsic 
types” on page 24. Support is provided, however, for Extended U nix Code 
(EUC) and Shift-J IS encoding. 
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Lexical tokens 

Lexical tokens consist of sequences of characters and arethe building 
blocks of a program. They denote names, operators, literal constants, 
labels, keywords, delimiters, and may also include the foil owing 
characters and character combinations: 


Names 

I n Fortran 90, names denote entities such as variables, procedures, 
derived types, named constants, and COM MON blocks. A name must 
start with a letter but can consist of any combination of letters, digits, 
and underscore (_) characters. As an extension in HP Fortran, the dollar 
sign may also be used in a name, but not as the first character. 

The Fortran 90 Standard allows a maximum length of 31 characters in a 
name. I n H P Fortran this limit is extended to 255 characters, and all are 
significant—that is, two names that differ only in their 255th character 
are treated as distinct. Names and keywords are case insensitive: for 
example, Titie$23_Name and title$23_name arethe same name. 

The case, if, and do constructs can optionally be given names. The 
construct name appears before the first statement of the construct, 
followed by a colon (:). The same name must appear at the end of the 
final statement of the construct. For more information about these 
constructs, refer to "Control constructs and statement blocks” on 
page 104. 
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Program structure 

A complete executable Fortran program contains one and only one main 
program unit and may also contain oneor more of the foil owing other 
types of program units: 

• External function subprogram unit 

• External subroutine subprogram unit 

• Block data program unit 

• Module program unit 

Each program unit can be compiled separately. Execution of the program 
starts in the main program. Control may be passed toother program 
units. 

The Fortran 90 program units, and thetransfer of control between them, 
are described in Chapter 7, "Program units and procedures,"on 
page 121. 


Statement labels 

A Fortran 90 statement may have a preceding label, composed of one to 
fivedigits. All statement labels in the same scoping unit must beunique; 
leading zeroes are not significant. Although most statements can be 
labeled, not all statements can be branched to. 

The format statement must have a label. The include line, which is 
not a statement but a compiler directive, must not have a label. 
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Statements 

All HP Fortran statements are fully described in alphabetical order in 
Chapter 10, "HP Fortran Statements." 

The required order for statements in a standard Fortran 90 program unit 
is illustrated in Table 2. Vertical lines separate statements that can be 
interspersed, and horizontal lines separate statements that cannot be 
interspersed. For example, the data statement can appear among 
executable statements but may not be i nterspersed with contain 
statements. Also, the use statement, if present, must immediately follow 
the program unit heading. 

Statement order in a program unit 


PROGRAM, FUNCTION, SUBROUTINE, MODULE, Or BLOCK DATA 

statement 


use statement 



implicit none statement 


parameter statement 

implicit statement 

FORMAT 


Derived-type defi nitions, 

and 

PARAMETER and 

1 nterface blocks, 

ENTRY 

data statements 

Type declarations, 

statements 


Statement functions, and 



Specification statements 


data statements 

Executable constructs 


contains statement 


Internal subprograms or module subprograms 
end statement 
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Statements 


Table 2 does not show where comments, the include line, and directives 
may appear. Comments may appear anywhere in a source file, including 
after the end statement. The include line may appear anywhere before 
the end program statement. 

Table 3 identifies which statements may appear within a scoping unit; a 
check mark indicates that a statement is allowed in the specified scoping 
unit. For the purpose of this table, type declarations include the 
parameter statement, the implicit statement, type declaration 
statements, derived-type definitions, and specification statements. 

Statements allowed in scoping units 


Statements 

Scoping units 

Main program 

External 

procedure 

Module 

Module 

procedure 

Internal 

procedure 

1 nterface 
body 

Block data 
program unit 

CONTAINS 








DATA 








ENTRY 








Executable 








FORMAT 








1 nterface block 








Statement function 








Type declaration 








USE 
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Source format of program file 

The H P Fortran compiler accepts source files in fixed form (the standard 
source form for FORTRAN 77 programs) or freeform. The following 
sections describe both forms. 

The compiler assumes that source files whose names end in the . f 90 
extension are in free source form and that files whose names end in the 
.for .f extension are in fixed form. You can override these assumptions 
by compiling with the +source=free or +source=free option. Seethe 
HP Fortran Programmer's Guidefor more information. 

Although thetwo forms are quite different, you can format a Fortran 90 
source file so that the compiler would accept it as either fixed or free 
form. This would be necessary, for example, when preparing a source file 
containing code that will be inserted through the include line into a file 
for which the form is not known. Toformat a sourcefileto be acceptable 
as either free or fixed source form, use the foil owing rules: 

• Put labels in columnsl-5. 

• Put statement bodies in columns 7-72. 

• Begin comments with an exclamation mark in anycolumn except 
column 6. 

• I ndicateall continuations with an ampersand character (&) in column 
73 of the line to be continued and an ampersand character in column 
6 of the continuing line. 

• Do not insert blanks in tokens. 

• Separate adjacent names and keywords with a space. 

F ree source form 

I n free source form, thesource line is not divided into fields of predefined 
width, as in thefixed form. This makes entering text at an interactive 
terminal more convenient. 
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Source lines 

Freeform lines can contain from 0 to 132 characters. The 
+extend_source option extends the line to column 254. This is 
described in the HP Fortran Programmer's Guide. Several statements 
can appear on a single source line, separated by semicolons. A single 
Fortran 90 statement can extend over more than one source line, as 
described below in "Statement continuation”on page 15. 

Multiple statements may appear on the same line, separated by a 
semicolon (;). 

Statement labels 

Statement labels are not required to be in columns 1-5, but must be 
separated from the statement by at least one space. 

Spaces 

Spaces are significant: 

• They may not appear within a lexical token, such as a name or an 
operator. 

• I n general, one or more spaces are requi red to separate adjacent 
statement keywords, names, constants, or labels. Within the keyword 
pairslisted inTable4, however, the space is optional. The keyword 
following end can be: block data, do, file, function, if, 

INTERFACE, MAP, MODULE, PROGRAM, SELECT, SUBROUTINE, 
STRUCTURE, TYPE, UNION, Or WHERE. 

Keywords allowing optional spacing 

BLOCK DATA GO TO 

DOUBLE PRECISION IN OUT 

ELSE IF SELECT CASE 

end keyword 

• Spaces are not required between a name and an operator because the 
latter begins and ends with special symbols that cannot be part of a 
name. M ultipie spaces, unless in a character context, areequivalent 
to a single space. 
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Consider the spaces (designated by b) in the following statement: 

IFbb(TEXT.EQ.'bbbYES') ... ! Valid 

The two spaces after if are valid and areequivalent to one space. No 
spaces are required before or after .eq., because there is no ambiguity. 
However, the three spaces in the character constant are significant. 

I n the next example 

IF(MbARY.bGE.MIKE) ... ! Faulty in free source form 

the spaces areinvalid in free source form but valid in fixed source form. 

Comments 

An exclamation mark (!) indicates the beginning of a comment in free 
source form, except where it appears in a character context. The 
compiler considers the rest of the line foil owing the exclamation mark as 
part of the comment. Embedding a comment inside program text within 
a single source line is not allowed, but it can follow program text on a 
source line. A statement on a line with a trailing comment can be 
continued on subsequent lines. 

Statement continuation 

A statement can be split over two or more source lines by appending an 
ampersand character (&) to each source line except the last. The 
ampersand must not be within a character constant. 

A statement can occupy up to40 source lines. As an extension, 

HP Fortran increases this limit to 100 source lines. The end statement 
cannot be split by means of a continuation line. Comments are not 
statements and cannot be continued. 

The text of the source statement in a continuation line is assumed to 
resume from column 1. However, if thefirst nonblank symbol in the line 
is an ampersand, thetext resumes from thefirst column after the 
ampersand. 

Consider the following two statements: 

INTEGER marks, total, difference,& ! work variables 

mean, average 

INTEGER marks, total, difference, mean_& ! work variables 
&value, average 
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The second statement declares the integer variable, mean_vaiue. Any 
spaces appearing in the variable name as a result of the continuation 
would be invalid. This is the reason for the ampersand character in the 
continuation line. (Alternatively, value could have been positioned at 
column 1.) Using the ampersand character to split lexical tokens and 
character constants across source lines is permitted, but not 
recommended. 

Fixed source form 

Statements or parts of statements must be written between character 
columns 7 and 72. Any text following column 72 is ignored. The 
+ [no] extend_source option extends the statement to column 254. 
Columns 1-6 are reserved for special use. 

Programs that depend on the compiler’s ignoring any characters after 
column 72 will not compile correctly with the +extend_source option. 

Multiple statements may appear on the same line, separated by a 
semicolon (;). 

Spaces 

Spaces are not significant except within a character context. For 
example, the two statements 

RETURN 

RETURN 

are equivalent, but 

c = "ab c" 
c = "a b c" 

are not. 

Source lines 

There are three types of lines in fixed source form: 

• Initial line 

• Continuation line 

• Comment line 
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The following sections describe each type of source lines. 

Initial line 

An initial line has thefollowing form: 

• Columns lto5 may contain a statement label. 

• Column 6 contains a space or the digit zero. 

• Columns 7 to 72 (optionally, to 254) contain the statement. 

Continuation line 

A continuation line has thefollowing form: 

• Columns 1 to 5 are blank. 

• Column 6 contains any character other than zero or a space. One 
practice is to number continuation lines consecutively from 1. 

• Columns 7 to 72 (optionally, to 254) contain the continuation of a 
statement. 

The Standard specifies that a statement must not have more than 19 
continuation lines. As an extension to the Standard, HP Fortran allows 
as many as 99 continuation lines. 

Comment line 

Comment lines may be included in a program. Comment lines do not 
affect compilation in any way, but usually include explanatory notes. The 
letter c, or c , or an asterisk (*) in column 1 of a line, designates that 
line as a comment line; the comment text is written in columns 1 to 72. 
The compiler treats a line containing only blank characters in columns 1 
to 72 as a comment line. In addition, a line is considered to be a comment 
when there is an exclamation mark (!) in column 1 or in any column 
except column 6. 

Thefollowing are HP extensions to the comment: 

• A line with d or d in column 1 is by default treated as a comment. The 
+diines option causes the compi ler to treat such lines as statements 
to be compiled. This extension to the comment—called debugging 
lines—is useful for including print statements that are to be 
compiled during the debugging stage to display the program state. 
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• A line with a pound sign (#) character in column 1 is treated as a 
comment. This extension allows compilation of source files that have 
been preprocessed with the C preprocessor (cpp). 

• HP Fortran allows tab formatting. That is, a tab character may be 
entered in the first column of a line to skip past the statement label 
columns. If the character following the tab character is a digit, this 
digit is assumed to be in column 6, the continuation indicator column. 
Any other character following the tab character is assumed to be in 
column 7, the start of a new statement. A tab character in any other 
column of a line is treated as a space. 
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INCLUDE line 


The include line is a directive to the compiler, not a Fortran 90 
statement. It causes the compiler to insert text into a program before 
compilation. The inserted text is substituted for the include line and 
becomes part of the compilable source text. Theformat of an include 
line is: 

include char-literal-const 

where char-literal-const is the name of a file containing the text to be 
included. The character literal constant must not have a kind parameter 
that is a named constant. 

If char-literal-const is only a filename (in other words, no pathname is 
specified), the compiler searches a user-specified path. You can use the - 
idir option to tell the compiler where to search for files to be included. 

The include line must appear on one line with no other text except 
possibly a trailing comment. There must be no statement label. This 
means, for example, that it is not possible to branch to it, and it cannot 
be the action statement that is part of an if statement. Putting a second 
include or another Fortran 90 statement on the same line using a 
semicolon as a separator is not permitted. Continuing an include line 
using an ampersand is also not permitted. 

The text of the included file must consist of complete Fortran 90 
statements. 

include lines may also be nested. That is, a second include line may 
appear within thetext to be included, and the text that it includes may 
also have an include line, and soon. FI P Fortran has a maximum 
include line nesting level of 10. However, thetext inclusion must not be 
recursive at any level; for example, included text A must not indudetext 
B if B includes text A. 

The following areexample include lines: 

INCLUDE "MY_COMMON_BLOCKS" 

INCLUDE "/usr/include/machine_parameters.h" 
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I n the next example, the include line occurs in theexecutable part of a 
program and supplies the code that uses the input value from the 
preceding read statement: 

READ *, theta 

INCLUDE "FUNCTION_CALCULATION" 
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This chapter describes how data is represented and stored in HP Fortran 
programs, and includes thefollowing topics: 

• I ntrinsic data types 

• Derived types 

• Poi nters 

Arrays are descri bed i n Chapter 4, "Arrays," on page 51. The record and 
structure statements—H P Fortran extensions—are fully described in 
Chapter 10, "HP Fortran Statements." I ntrinsics procedures are 
described in Chapter 11, "I ntrinsic procedures," on page475. 
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NOTE 


I ntrinsic data types 

The intrinsic data types are the data types predefined by the H P Fortran 
language, in contrast with derived types, which are user-defined (see 
"Derived types" on page 39). The intrinsic data types include numeric 
types: 

• Integer 

• Real 

• Complex 

and non numeric types: 

• Character 

• Logical 

Each type allows the specification of a kind parameter to select a data 
representation for that type (see 'Type declaration for intrinsic types" on 
page 24 for the format of the kind parameter). If the kind parameter is 
not specified, each type has a default data representation. Table 5 
identifies the data representation for each type, including the default 
case where a kind parameter is not specified. The types are listed by 
keyword and applicable kind parameter. The tablealso includes the data 
representation for the H P extensions, byte and double complex. 

As shown in Table 5, H P Fortran aligns data on natural boundaries. 
Entities of the intrinsic data types are aligned in memory on byte 
boundaries of 1, 2, 4, or 8, depending on their size. Array variables are 
aligned on an address that is a multi pie of the alignment required for the 
scalar variable with the same type and kind parameters. 

The ASCII character set uses only the values 0 to 127 (7 bits), but the 
HP Fortran implementation allows use of all 8 bits of a character entity. The 
processing of character sets requiring multibyte representation for each 
character makes use of all 8 bits. 

For additional information about data representation models, see "Data 
representation models" on page 480. 
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Table 5 I ntri nsic data types 


Type 

Range of values 

Precision (in 
decimal digits) 

Bytes 

Alignment 

INTEGER(1) 

-128 to 127 

Not applicable 

1 

1 

INTEGER(2) 

-2 15 to 2 15 -1 

Not applicable 

2 

2 

INTEGER(4) 

(default) 

-2 31 to 2 31 -1 

Not applicable 

4 

4 

INTEGER(8) 

-2 63 to 2 63 -l 

Not applicable 

8 

8 

REAL (4) 

(default) 

-3.402823xl0 38 to 
-1.175495xl0' 38 

0.0 

+1.175495x10 38 to 
+3.402823xl0 38 

approximately 6 

4 

4 

REAL(8) 

-1.797693xlO +308 to 
-2.225073x10 308 

0.0 

+2.225073x10 308 to 
+1.797693xlO+ 308 

approximately 15 

8 

8 

REAL(16) 

-1.189 731X10 44932 to 
-3.362103x 10" 4932 

0.0 

+3.362103xl0" 4932 to 
+1.189731X10 44932 

approximately 33 

16 

8 

DOUBLE 

PRECISION 

Same as for real (8) 

approximately 15 

8 

8 

COMPLEX(4) 

Same as for real (4) 

Same as for 

REAL (4) 

8 

4 

COMPLEX(8) 

Same as for real (8) 

Same as for 

REAL (8) 

16 

8 
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DOUBLE 

COMPLEX 

Same as for real (8) 

Same as for 

REAL (8) 

16 

8 

CHARACTER(1) 

(default) 

ASCII character set 

Not applicable 

1 

1 

LOGICAL(1) 

.TRUE. and .FALSE. 

Not applicable 

1 

1 

LOGICAL(2) 

.TRUE. and .FALSE. 

Not applicable 

2 

2 

LOGICAL(4) 

(default) 

.TRUE. and .FALSE. 

Not applicable 

4 

4 

LOGICAL(8) 

.TRUE. and .FALSE. 

Not applicable 

8 

8 


Type declaration for intrinsic types 

The following is the general form of a type declaration statement for the 
intrinsic data types: 

type-spec [[, attribute-spec] ... :: ] entity-list 
type-spec 

is one of: 

• integer [kind-selector] 

• real [kind-selector] 

• double precision [kind-selector] 

• character [char-selector] 

• logical [kind-selector] 

• complex [kind-selector] 

• DOUBLE COMPLEX 

• BYTE 

byte and double complex are H P extensions, byte 
is equivalent to integer (kind=i ). double 
precision is equivalent to real (kind=8 ), and 
double complex is equivalent to complex (kind=8 ) , 

except when +autodbi or +autodbi4 is used. Refer to 
the HP Fortran Programmer's Guidefor information 
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about using these options to increase sizes. Refer to 
Chapter 10, "HP Fortran Statements"for information 
about each type-spec. 

If type-spec is present, it overrides the implicit-typing 
rules; see "I mplicit typing” on page 28. 

As an HP extension to the Standard, type-spec can also 
take the form: 
type* length 

where type is an intrinsic type excluding byte, 

CHARACTER, DOUBLE COMPLEX, and DOUBLE 

precision; and length is the number of bytes of 
storage required, as shown in Table 5. Alternatively, 

* length may appear after the entity name. If the entity 
is an array with an array specification following it, 
*length may appear after the array specification. If 
*length appears with the entity name, it overrides the 
length specified by kind-selector. 

kind-selector 

is 

([KiND=]scalar-int-init-expr) 
scalar-int-init-expr 

is a scalar integer initialization expression that must 
evaluate to one of the kind parameters available (see 
Table 5). For information about initialization 
expressions, see "I nitialization expressions” on page 90. 

char-sel ector 

specifies the length and kind of the character variable, 
when type-spec is character. 

attri bute-spec 

is one or more of the attributes listed in Table 6. Some 
attributes are incompatible with others; for 
information about which attributes are compatible as 
well as full descriptions of all the attributes, see 
Chapter 10, "HP Fortran Statements." 
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entity-list 

is a comma-separated list of entity names of the form: 

• var-name [ (array-spec)] [*char-len] [ = 
init-expr] 

• function-name[ (array-spec ) ] [*char-len] 

wherearray-spec is described in "Array declarations”on 
page 54; char-1 en is described with the character 
statement in Chapter 10; and init-expr is described in 
"Initialization expressions" on page 90. If you include 
init-expr in entity, you must also include the double 
colon (: :) separator. 

As an extension to the Standard, HP Fortran permits 
the use of slashes to delimit init-expr. The double colon 
separator, array constructors, and structure 
constructors are not allowed in this form of 
initialization. Arrays may be initialized by defining a 
list of values that are sequence associated with the 
elements of the array. 


Table 6 Attributes in type declaration statement 


Attribute 

Description 

AUTOMATIC 

M akes procedure variables automatic (extension). 

ALLOCATABLE 

Declares an array that can be allocated during execution. 

DiMENSiON(array- 

spec) 

Declares an array; see "Array declarations” on page 54. If entity- 
list also includes an array-spec, it overrides the dimension 
attribute. 

EXTERNAL 

Specifies a subprogram or block data located in another program 
unit. 

INTENT 

Defines the mode of use of a dummy argument. 

INTRINSIC 

Allows a specific intrinsic name as an actual argument. 

OPTIONAL 

Declares the presence of an actual argument as optional. 

PARAMETER 

Defines named constants. 

POINTER 

Decl ares the entity to be a poi nter. 
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Attribute 

Description 

PRIVATE 

1 nhibits visibility outside a module. 

PUBLIC 

Provides visibility outside a module. 

SAVE 

Ensures the entity retains its value between calls of a procedure. 

STATIC 

Ensures the entity retains its value between calls of a procedure 
(extension). 

TARGET 

E nables the entity to be the target of a poi nter. 

VOLATILE 

Provides for data sharing between asynchronous processes 
(extension). 


The following areexamples of type declaration statements: 

! Default, KIND=4, integers i j k. 

INTEGER i, j, k 

! Using optional separator. 

INTEGER :: i,j,k 

! An 8-byte initialized integer. 

INTEGER (KIND=8) :: i=2**40 

! 10 element array of 8-byte integers. 

INTEGER(8),DIMENSION (10) :: i 

! Using an array constructor for initialization. 

REAL, DIMENSION(2,2) : : a = RESHAPE((/1.,2.,3.,4./), (/2,2/)) 

! Initialized complex. 

COMPLEX : : z= (1.0,2.0) 

! SYNTAX ERROR - no :: present. 

COMPLEX z=(1.0,2.0) ! ILLEGAL 

! Initialization using the HP slash extension 
INTEGER i/1/,j/2/ 

REAL a(2,2)/l.1,2.1,1.2,2.2/ ! a(i,j)=i,j 

! One character (default length). 

CHARACTER(KIND=1) :: c 

! A 10-byte character string. 

CHARACTER(LEN=10) :: c 

! Length can be * for a named constant; title is a 13-byte 
! character string 

CHARACTER(*),PARAMETER :: title='Ftn 90 MANUAL' 

! next four declarations are all equivalent, but only the last 
! is standard-conforming 
REAL*8 r8 (10) 
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REAL r8*8 (10) 

REAL r8(10)*8 

REAL(8), DIMENSION(10) :: r8 

! If the statement is in a subprogram, n must be known at entry; 

! otherwise, it must be a constant. 

CHARACTER(LEN=n) :: c 
SUBROUTINE x(c) 

CHARACTER*(*) :: c 

! c assumes the length of the actual argument. 

END 

! A single entity, of derived type node. 

TYPE(node):: list_element 

! Declaration and initialization of a user-defined variable 
TYPE(coord) :: origin = coord(0.0,0.0) 

Implicit typing 

I n Fortran 90, an entity may be used without having been declared in a 
type declaration statement. The compiler determines the type of the 
entity by applying implicit typing rules. Thedefault implicit typing rules 
are: 

• Names with initial letter a to h or oto z are of type real. 

• Names with initial letter i to n are of type integer. 

Because Fortran 90 is a case-insensitive language, the same rules apply 
to both uppercase and lowercase letters. 

The foil owing statements 

DIMENSION a (5), i(10) 
k = 1 
b = k 

implicitly declare a and b as default reals and i and k as default 
integers. 

As described in Chapter 10, the implicit statement enables you to 
change or cancel the default implicit typing rules. The implicit 
statement takes effect for the scoping unit in which it appears, except 
where overridden by expl icit type statements. 

You can override the implicit typing rules and enforce explicit typing— 
that is, declare entities in type declaration statements—with the 
implicit none statement. If this statement is included in a scoping 
unit, all names in that unit must have their types explicitly declared. You 
can also enforce explicit typing for all names within a source fileby 
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compiling with the +impiicit_none option. This option has the effect of 
including an implicit none statement in every program unit within a 
source file. 

For a full description of the implicit and implicit none statements, 
seeChapter 10, "HP Fortran Statements.”The +impiicit_none option 
is described in the HP Fortran Programmer's Guide. 


Constants 

Constants can be either literal or named. A literal constant is a 
sequence of characters that represents a value. A named constant is a 
variablethat has been initialized and has the parameter attribute. This 
section describes the formats of literal constants for each of the intrinsic 
data types. For more information about named constants and the 
parameter statement and attribute, see Chapter 10. 

I nteger constants 

The format of a signed integer literal constant is: 

[sign] digit-string [_kind-parameter] 
sign 

is either + or -. 

digit-string 

takes the form: 
digit[digit]... 

kind-para meter 

is one of: 

• digit-string 

• the name of a seal ar i nteger constant 
The following are examples of integer constants: 

-123 

123_1 

123_ILEN 

I n the last example, ilen is a named integer constant used as a kind 
parameter. It must have a value of 1, 2, 4, or 8. 
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BOZ constants 

Fortran 90 allows data statements to include constants that are 
formatted in binary, octal, or hexadecimal base. Such constants are 
called BOZ constants. 

A binary constant is: 

leading-letter} 'digit-string' | "digit-string"} 

where leading-letter is the single character b, o, or z, indicating binary, 
octal, or hexadecimal base, respectively, digit-string must consist of 
digits that can represent the base, namely: 

• Binary: o and l. 

• Octal: o through 7. 

• Hexadecimal: o through 9, and a through f. The letters can be 
uppercase or lowercase. 

I n the following, the three data statements use BOZ constants to 
initialize i, j, and k tothedecimal value 74: 

INTEGER i, j, k 
DATA i/B’01001010'/ 

DATA j/O'112'/ 

DATA k/Z'4A'/ 

As an extension, H P Fortran allows octal constants with a trailing o, and 
hexadecimal constants with a trailing x. The following data statements 
initialize j and k tothedecimal value 74: 

DATA j/'112'0/ 

DATA k/'4A'X/ 

HP Fortran also allows the use of BOZ constants in contexts other than 
the data statement; see‘Typeless constants" on page 31. 

Hollerith constants 

Hollerith constants have the form: 
lenHstring 

where I en is the number of characters in the constant and string contains 
exactly len characters. The value of the constant is the value of the 
pattern of bytes generated by the ASCI I values of the characters. 
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As an extension, H P Fortran allows Hollerith constants to appear in the 
same contexts as BOZ constants (see'Typeless constants" on page 31), as 
well as wherever a character string is valid. If len is greater than the 
number of characters in string, theconstant is padded on the right with 
space characters. If len is less than the number of characters in string, 
the constant is truncated on the right. 

If a Hollerith constant appears as an argument to the conversion 
functions int and logical, the kind parameter is kind=i if the length 
of theconstant is 1 byte, kind=2 if the length is 2 bytes, kind=4 if 3 Or 4 
bytes, and kind=8 if greater than 4. 

Following are examples of Hollerith constants: 

3HABC 

5HABCbb !bb = two space characters, making the length equal to 5 

Typeless constants 

HP Fortran extends the uses of binary, octal, and hexadecimal constants 
(BOZ) beyond those prescribed in the Fortran 90 Standard; see "BOZ 
constants" on page 30. H P Fortran allows BOZ constants to be used as 
typeless constants wherever an intrinsic literal constant of any 
numeric or logical type is permitted. 

If possible, the type attached to a typeless constant is derived from the 
magnitude of theconstant and the context in which it appears. When 
used as one operand of a binary operator, it assumes the type of the other 
operand. If it is used as the right-hand side of an assignment, the type of 
the object on the left-hand side is assumed. When used to define the 
value within a structure constructor, it assumes the type of the 
corresponding component. If appearing in an array constructor, it 
assumes the type of the first element of the constructor. 

The following rules and restrictions also apply: 

• If the context does not determine the type, a warning is issued and 
the type attached to the constant is: 

- integer (4) if the constant occupies 1-4 bytes. 

- integer (8) if the constant occupies more than 4 bytes. 

Leading zeros are considered significant in determining the size. 

For example, z 1 00000001 1 assumes integers) , and 
Z 1 000000001 1 assumes INTEGER (8) . 
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• The compiler truncates and issues a warning if morethan 8 bytes are 
required to represent a constant—for example, 

z 1 12345678123456781234 '.The resulting truncated value differs 
from that specified in the source code. 

• When the size of the type determined by context does not match the 
size of the actual constant, the constant is either extended with 
zeroes on the left or truncated from the left as necessary. 

• If a single constant is assigned toa complex entity, it is assumed to 
represent the real part only and will assume the real type with the 
same length as the complex entity. 

• When the compiler attempts to resolve a generic procedure, a BOZ 
constant in the argument list is considered to match a logical or 
numeric dummy argument. An ambiguous reference is likely to occur. 
See "Generic procedures”on page 154 for information about generic 
procedures. 

• Except for the intrinsic conversion procedures, a BOZ constant used 
as an actual argument for an intrinsic procedure assumes the integer 
type. 

• The intrinsic functions int, logical, real, dble, dreal, cmplx, 
and dcmplx are avail able to force a BOZ constant to a specifictype. If 
a BOZ constant is specified as an argument to these functions, its 
assumed type is determined as follows: 

- For functions int and logical the assumed type will be 
(respectively) integer (kind=4 ) and logical (kind=4 ), if the 

constant occupies 1 to 4 bytes; otherwise, the type is assumed to be 

INTEGER(KIND = 8) and LOGICAL(KIND = 8). 

- For the functions real, dble, dreal, cmplx, and dcmplx an 
argument of type real (kind=4 ) is assumed if the constant 
occupies 1 to4 bytes, real (kind=8) if it occupies 5 to 8 bytes, 
and real (kind=i 6) otherwise. 

The following examples illustrate the extended use of BOZ constants: 

! The value is 20 (constant treated as INTEGER(2) and 
! truncated on the left). 

10_2 + Z'lOOOA' 

LOGICAL(2) :: lgl2 

! Constant treated as LOGICAL(2), the type of the variable, 
lgl2 = B'1' 
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! Constant treated as INTEGER(4); IABS is used. 

ABS (Z'41') 

! Constant treated as REAL(8) as it is more than 4 bytes. 

REAL(Z'3FF0000000000000') 

Real constants 

A signed real literal constant is one of: 

[sign]digit-string[ [. [digit-string] ] ] [exponent] [_kind-parameter] 
exponent 

takes the form: 

exponent-letter [sign] digit-string 
exponent-letter 

is the character e, d, or q. q is an H P Fortran 
extension. 


sign and digit-string 

are explained in "I nteger constants" on page 29. 

If no kind parameter is present, or if the exponent letter e is present, the 
default kind representation is used; seeTable5. If the exponent letter is 
d, the kind parameter is 8, and if the exponent letter is Q, the kind 
parameter is 16. If both an exponent and a kind parameter are specified, 
the exponent letter must be e. 

Following are examples of real constants: 


3.4E-4 
42. E2 
1.234_8 
-2.53Q-300 


10.00034 
! 4200 

11.234 with approximately 15 digits precision 

1-2.53 x 10 to the -300th, with approximately 34 
1 digits precision 
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Complex constants 

A complex literal constant has the form: 

(real-part, imaginary-part) 
real-part and imaginary-part 

are each one of: 

• signed-integer-literal-constant 

• signed-real-literal-constant 

The kind parameter of the complex value corresponds to the kind 
parameter of the part with the larger storage requirement. 

Following are examples of complex constants: 

(1.0E2, 2.3E-2) !default complex value 
(3.0_8,4.2_4) !complex value with KIND=8 

Character constants 

A character literal constant is one of: 

[kind-parameter_] 'character-string 1 
[kind-parameter_] "character-string" 

The delimiting characters are not part of the constant. If you need to 
place a single quote in a string delimited by single quotes, use two single 
quotes; the same rule applies for double quotes. 

Following are examples of character constants: 

1_'A.N.Other' 

, Bach ,, s Preludes' ! actual constant is: Bach's Preludes 
"" ! a zero length constant 

For compatibility with C-language syntax, HP Fortran allows the 
backslash character (\) as an escape character in character strings. You 
must use the tescape option to enable this feature. When this option is 
enabled, the compiler ignores the backslash character and either 
substitutes an alternative valuefor the character following, or interprets 
the character as a quoted value. For example: 

'ISN\'T' 

is a valid string when compiled with the tescape option. 
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Table 7 


The backslash is not counted in the length of the string. Also, if \& 
appears at the end of a line when the +escape option is enabled, the 
ampersand is not treated as a continuation indicator. 

Table 7 lists recognized escape sequences. 

Escape characters 


Escape character 

Effect 

\n 

Newline 

\t 

Horizontal tab 

\ v 

Vertical tab 

\b 

B ackspace 

\f 

Form feed 

\0 

Null 

V 

Apostrophe (does not terminate a string) 

\" 

Double quote (does not terminate a string) 

w 

\ 

\x 

x, where x is any character other than 1 


Logical constants 

The format of a logical literal constant is: 

{ .true. | .false. } [_kind-parameter] 

The following areexamples of logical constants: 

.TRUE. 

.FALSE,_2 

In standard-conforming programs, a logical value of .true, is 
represented by 1 , and . false . is represented by 0.1 n nonstandard- 
conforming programs involving arithmetic operators with logical 
operands, a logical variable may be assigned a value other than 0 or 1.1 n 
this case, any nonzero value is . true ., and only the value zero is 

.FALSE. 
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Character substrings 

A character substring is a contiguous subset of a character string. The 
substring is defined by the character positions of its start and end within 
the string, formatted as follows: 

string ([ starting-position ] : [ ending-position ]) 

starting-position 

is a scalar expression. If starting-position is omitted, a 
value of 1 is assumed. The starting-position must be 
greater than or equal to 1, unless the substring has 
zero length. 

ending-position 

is a scalar integer expression. If ending-position is 
omitted, the value of the length of the character string 
is assumed. 

The length of the substring is: 

max (ending-position - starting-position + l, 0) 

Thefollowing example, substring.f90, illustrates the basic operation on a 
substring. 

substring.fgo 

PROGRAM main 

CHARACTER(LEN=15) :: city_name 

city_name = 'CopXXXagen' 

PRINT *, "The city's name is: ", city_name 

city_name(4:6) = 'enh' ! assign to a substring of city_name 
PRINT *, "The city's name is: ", city_name 
END PROGRAM main 

Here are the command lines to compile and execute the program, along 
with the output from a sample run: 

$ f90 substring.f90 
$ a.out 

The city's name is: CopXXXagen 
The city's name is: Copenhagen 

For information about substring operations on an array of strings, see 
"Array sections" on page 63. 
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Character strings as automatic data objects 

An automatic data object can be either an automatic array (see "Explicit- 
shape arrays" on page 55) or a character string that is local to a 
subprogram and whose size is nonconstant. The size of a character 
string is determined when thesubprogram is called and can vary from 
call to call. 

An automatic character string must not be: 

• A dummy argument 

• Decl ared with the save attri bute 

• Initialized in a type declaration statement or data statement 

The following example, swap_names.f90, illustrates the use of automatic 
character strings: 

swap_names.f90 

PROGRAM main 

! actual arguments to pass to swap_names 
CHARACTER(6) :: nl = "George", n2 = "Martha" 

CHARACTER(4) :: n3 = "pork", n4 = "salt" 


PRINT *, "Before: nl = 
CALL swap_names(nl, n2) 

”, nl, " 

n2 = ”, 

n2 


PRINT *, "After: nl = 

”, nl, " 

n2 = ”, 

n2 


PRINT *, "Before: n3 = 
CALL swap_names(n3, n4) 

”, n3, " 

n4 = ”, 

n4 


PRINT *, "After: n3 = 
END PROGRAM main 

”, n3, " 

n4 = ”, 

n4 


! swap the arguments - two character 
SUBROUTINE swap_names (namel, name2) 

strings 

of the same 

length 

CHARACTER(*) :: namel, 

name2 ! 

the arguments 


! declare another character string, temp. 

to be used 

in the 


! exchange. temp is an automatic data object, its length 
! can vary from call to call 
CHARACTER(LEN(namel)) :: temp 

! the exchange 
temp = namel 
namel = name2 
name2 = temp 

END SUBROUTINE swap_names 
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Here are the command lines to compile and execute the program, along 
with the output from a sample run: 

$ f90 swap_names.f90 
$ a.out 

Before: nl = George n2 = Martha 

After: nl = Martha n2 = George 

Before: n3 = pork n4 = salt 

After: n3 = salt n4 = pork 
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Derived types 

Derived types are user-defined types that are constructed from entities of 
intrinsic data types (see "I ntrinsicdata types” on page 22) or entities of 
previously defined derived types. For example, thefollowing is a 
definition of a derived type for manipulating coordinates consisting of 
two real numbers: 

TYPE coord 
REAL :: x,y 
END TYPE coord 

x and y are the components of the derived type coord. 

The next statement declares two variables (a and b) of the derived type 

coord: 

TYPE(coord) :: a, b 

The next statement copies the values of a to b, as in any assignment 
statement: 

a = b 

The components of a and b are referenced as a%x, a%y, b%x, and b%y. By 
using the defined operation facility of Fortran 90, it is possible to extend 
the standard operators to work with derived types. For example, if the + 
and = operators were re-defined to operate on derived type operands, the 
following statement 

a = a + b 

would be equivalent to 

a%x = a%x + b%x; a%y = a%y + b%y 

Thefollowing sections describe: 

• The syntax of defining a derived type 

• Sequence types 

• Structure constructors 

• Referencing a structure component 

• Alignment of derived type objects 

The last section provides an example program that illustrates different 
features of derived types. 
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Defining a derived type 

The format for defining a derived type is: 
type [[, access-spec] ::] type-name 
[private-sequence-statement] . . . 
comp-definition-statement 
[comp-definition-statement] . . . 
end type [type-name] 
access-spec 

is one of: 

• PRIVATE 

• PUBLIC 

access-spec is allowed only if the definition appears 
within a module. For more information about modules, 
see "Modules”on page 161. The private and public 
attributes are described in Chapter 10. 

type-name 

is the name of the type being defined, type-name must 
not conflict with the intrinsic type names, 
pri vate-sequence-statement 

is a private or sequence statement. The private 
statement is allowed only if the definition appears 
within a module. For more information about the 
sequence statement, see "Sequence derived type” on 
page41. Both statements are fully described in 
Chapter 10. 

comp-defi nition-statement 

takes the form: 

type-spec [ [comp-attr-list] : : ] comp-ded 
Noticethat the syntax does not allow for initialization. 

comp-attr-list 

can only contain the dimension and pointer 
attributes. A component array without the pointer 
attribute must have an explicit-shape specification 
with constant bounds. If a component is of the same 
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derived type as the type being defined then the 
component must havethe pointer attribute. Both 
attributes are fully described in Chapter 10. 

comp-declaration 
takes the form: 

comp-name [ (array-spec) ] [*char-len] 
where array-spec is an array specification, as described 
in "Array declarations" on page 54; and char-1 en is used 
when comp-name is of type character to specify its 
length. 

Sequence derived type 

As shown in "Defining a derived type” on page 40, the sequence 
statement may appear in the definition of a derived type. When storage 
for a variable of derived type is allocated, the presence of the sequence 
statement in the definition of the derived type causes the compiler to 
arrange all components in a storage sequence that is the same as the 
order in which they are defined. Such a derived type is called a 
sequence derived type. 

A sequence derived type may appear in a common block or in an 
equivalence set. The Standard makes requirements about the type— 
numericor character—of the components in a sequence type. As an 
extension, HP Fortran makes no restrictions on the types of the 
components other than that the definition of the derived type must 
include the sequence statement. 

Structure component 

A component of a derived-type object may be referenced and used like 
any other variable—in an expression, on the lefthand side of an 
assignment statement, or as procedure argument. It may be a scalar, an 
array, or itself a derived-type object. The component name has the same 
scope as the derived-type object in which it is declared. 
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To reference a structure component, use the form: 
parent-name[%comp-name] . . .%comp-name 

parent-name is a derived type. This part of a structure component 
reference is the parent and is joined to comp-name by 
the component selector operator (%). The comp-name 
component to which the parent is joined on its 
immediate right must be a component of parent-name. 

I f parent-name has the intent, target, or 
parameter attribute, then the structure component 
being referenced—the rightmost comp-name—also has 
that attribute. 

comp-name is the name of a component. I f more than one comp- 

name appears in a structure component reference, the 
reference is to the rightmost comp-name If more than 
one comp-name appears in the reference, each one 
(except the rightmost) must be a derived-type object, 
and the comp-name to its immediate right must be one 
of its declared components. 

If pa rent-name and comp-name are arrays, each can be followed by a 
section-subscript-list enclosed in parentheses. See "Array sections” on 
page 63 for information about the syntax of section-subscript-list. The 
Standard imposes certain restrictions on structure component references 
that are array-valued, as described in "Array-valued structure 
component references" on page 68. 

If the definition of a derived type contains a component that is of the 
same derived type, the component must havethe pointer attribute. 
The following example defines the derived type node, which includes a 
component (next) of the same derived type: 

TYPE node ! for use in a singly linked list 
INTEGER :: value 

TYPE(node), POINTER :: next ! must have the POINTER attribute 
END TYPE node 
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Declaring a derived type-object 

To declare an object of derived type, usetheTYPE statement, as follows: 

type (type-name) [[, attrib-list] :: ] entity-list 

where type-name, attrib-list, and entity-list all havethesame meaning as 
in a type declaration statement that is used to declare an object of an 
intrinsic type; see'Type declaration for intrinsic types” on page 24. 

Structure constructor 

A structure constructor constructs a scalar value of derived type. The 
value is constructed of a sequence of values for each component of the 
type. The syntax of a structure constructor is: 

type-name ( expression-list) 

type-name 

is the name of the derived type. The name must have 
been previously defined. 

expression-list 

is a comma-separated list of expressions that must 
agree in number, order, and rank with the components 
in type-name For information about expressions, see 
"Expressions” on page 80 and "Special forms of 
expression"on page 89. 

The foil owing restrictions apply to the use of the structure constructor: 

• I f a component is of derived type, an embedded structure constructor 
must be used to specify a value for the derived-type component. 

• If a component is an array, an array constructor must appear in 
expression-list that satisfies the array. For more information about 
array constructors, see "Array constructors" on page 71. 

• I f a component is a poi nter, the corresponding expression i n 
expression-list must evaluate to an allowable target. 
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Table 8 


Alignment of derived-type objects 

Derived type objects have the same alignment as the component that has 
the most restrictive alignment requirement. (This rule also applies to 
records.) To ensure natural alignment, the compiler may add padding to 
each element in an array of derived type. 

The following illustrates the alignment of an array of derived type. The 
definition of the derived type includes the sequence statement to ensure 
the order in which components are laid out in memory is the same as in 
the definition. The sequence statement has no effect on alignment: 

! definition of a derived type 
TYPE t 

SEQUENCE 

CHARACTER(LEN=7) :: c 

INTEGER(2) :: i2 

REAL(8) :: r 8 

REAL(4) :: r4 

END TYPE t 


! declaration of an array variable of derived type 
TYPE (t), DIMENSION(5) :: ta 

Each element of t is allocated storage as shown in Table 8. The first 
component of t starts at an address that is a multiple of 8. The four 
trailing padding bytes are necessary to preserve the alignment of r8 in 
each element of the array. 

Example of structure storage 


Component 

Byte offset 

Length 

C 

0 

7 

i2 

8 

2 

r8 

16 

8 

r4 

24 

4 

padding 

28 

4 
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A derived-type example 

The example below, traffic.f90, illustrates how to define a derived type, 
declare a variable of the type, specify a value for the variable using the 
structure constructor, pass the variable as an argument to another 
procedure, and reference a structure component. The derived type is 
defined in a module so that it can be made accessible by use association. 

For more information about modules and the use statement, see 
"Modules” on page 161. The module and use statements are also 
described in Chapter 10. 


traffic.f90 

PROGRAM traffic 

! Illustrates derived types: defines a derived type, declares an 
! to array variable of derived type, uses a structure constructor 
! assign to its components, and passes a component which is 
! itself another derived type to a subprogram. 

! Make the definition of the derived type called hours accessible 
! to this program unit 
USE hours_def 

LOGICAL :: busy 
INTEGER :: choice 


! Define another derived type that uses hours as a component 
TYPE hiway 

INTEGER :: rte_num 
TYPE(hours) :: busy_hours 
END TYPE hiway 

! Declare an array of derived-type structures. 

TYPE(hiway), DIMENSION(3) :: route 


! Use the structure constructor to 
! element of route 

route(l) = hiway(128, hours(.TRUE., 
route(2) = hiway(93, hours(.FALSE., 
route(3) = hiway(97, hours(.FALSE., 


specify values 

.FALSE.)) 

.TRUE.)) 
.FALSE.)) 


for each 


PRINT *, 'What road do you want to travel?' 

PRINT *, '1. Rte. 128' 

PRINT *, '2. Rte. 93' 

PRINT *, '3. Rte 97' 

READ *, choice 


! Pass the busy_hours component of the selected route to 
! the function busy. 

IF (busy(route(choice)%busy_hours)) THEN 

PRINT 'Heavy commute on rte.', route (choice)%rte_num 
ELSE 
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PRINT *,'Easy commute on rte.', route(choice)%rte_num 
END IF 

END PROGRAM traffic 
LOGICAL FUNCTION busy(when) 

! This function accepts a derived-type argument whose definition 
! is defined in the module hours_def, made accessible here by 
! use association. It returns .TRUE, or .FALSE., depending on 
! on the value of the user-selected component of the argument. 

! Make the definition of hours accessible to this function. 

USE hours_def 

TYPE(hours) :: when 

INTEGER :: choice 

PRINT *, 'When do you want to commute:' 

PRINT *, '1. Morning' 

PRINT *, '2. Evening' 

READ *, choice 

! Find out if the route is busy at that time of day. 

IF (choice .EQ. 1) THEN 
busy = when%am 
ELSE 

busy = when%pm 
END IF 

END FUNCTION busy 
MODULE hours_def 

! Define a derived type, which will be passed as an argument. 
TYPE hours 

LOGICAL :: am 
LOGICAL :: pm 
END TYPE hours 
END MODULE hours_def 

Here are the command lines to compile and execute the program, along 
with the output from a sample run: 

$ f90 traffic.f90 
$ a.out 

What road do you want to travel? 

1. Rte. 128 

2. Rte. 93 

3. Rte 97 

1 

When do you want to commute: 

1. Morning 

2. Evening 

1 

Heavy commute on rte. 128 
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Poi nters 

Pointers in Fortran 90 are more strongly typed than in other languages. 
While it is truethat the Fortran 90 pointer holds the address of another 
variable (the target), it also holds additional information about the 
target. For this reason, declaring a pointer requires not only the 
pointer attribute but also the type, kind parameter, and (if its target is 
an array) rank of the target it can poi nt to. 

If a pointer is declared as an array with the pointer attribute, it is an 
array pointer. As explained in "Deferred-shape arrays” on page 58, the 
declaration for an array pointer specifies its specifies rank but not the 
bounds. Following is the declaration of the array pointer ptr: 

REAL (KIND=16), POINTER, DIMENSION(:,:) :: ptr 

To become assignable to an array pointer, a target must be declared with 
the target attribute and must have the same type, kind parameter, and 
rank as the array pointer. Given the previous declaration of ptr, the 
following are legal statements: 

! declare a target with the same type, kind parameter, and 
! rank as ptr 

REAL(KIND=16), TARGET, DIMENSION(4,3) :: x 

ptr => x ! assign x to ptr in a pointer assignment statement 

Once the assignment statement executes, you can use either ptr or x to 
access the same storage, effectively making ptr an alias of x. 

You can also allocate storage to a pointer by means of the allocate 
statement. To deal locate that storage after you are finished with it, use 
the deallocate statement. Although allocating storage to a pointer 
does not involve a target object, the declaration of the pointer must still 
specify its type, kind parameter, and (if you want to allocate an array) 
rank. The allocate statement specifies the bounds for the dimensions. 
FI ere is an example of the allocate statement used to allocate storage 
for ptr: 

INTEGER :: j = 10, k = 20 

! allocate storage for ptr 
ALLOCATE (ptr(j,k)) 

ptr can now be referenced as though it were an array, using Fortran 90 
array notation. 
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As an extension, HP Fortran provides theCray-style pointer variables; 
for more information, see Chapter 10. For information about aspects of 
poi nters, refer to: 

• "Array pointers”on page 59 for information about allocating array 
poi nters. 

• "Pointer assignment" on page 97 for information about associating a 
pointer with a target by means of pointer assignment. 

• Chapter 10, "HP Fortran Statements”for a full description of the 
ALLOCATE and DEALLOCATE statements as wel I asthePOINTER 
and TARGET attributes. 

The following section discusses pointer status and includes an example 
program. 

Pointer association status 

Certain pointer operations can only be performed depending on the 
status of the pointer. A pointer's status is called its association status, 
and it can take three forms: 

U ndefined The status of a pointer is undefined on entry to the 
program unit in which the pointer is declared or if: 

• Its target is never allocated. 

• Its target was deallocated (except through the 
poi nter. 

• The target goes out of scope, causing it to become 
undefined. 

If the association status is undefined, the pointer must 
not be referenced or deallocated. It may be nullified, 
assigned a target, or allocated storage with the 
allocate statement. 

Associated The status of a pointer is associated if it has been 

allocated storage with the allocate statement or is 
assigned a target. If the target is allocatable, it must be 
currently allocated. 

If the association status is associated, the pointer may 
be referenced, deallocated, nullified, or pointer 
assigned. 
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Disassociated Thestatusof a pointer is disassociated if the pointer 
has been nullified with the nullify statement or 
deallocated, either by means of the deallocate 
statement or by being assigned to a disassociated 
pointer. 

If the association status is disassociated, the same 
restrictions apply as for a status of undefined. That is, 
the pointer must not be referenced or deallocated, but 
it may be nullified, assigned a target, or allocated 
storage with the allocate statement. 

You can use the associated intrinsic function to determine the 
association status of a pointer; see Chapter 11, "I ntrinsic procedures,” on 
page 475 for a description of this intrinsic. 

A pointer example 

The example below, ptr_sts.f90, illustrates different pointer operations, 
including calls to the associated intrinsic to determine pointer status. 

ptr_sts.f90 

PROGRAM main 

! This program performs simple pointer operations, including 
! calls to the ASSOCIATED intrinsic to determine status. 

i 

! Declare pointer as a deferred shape array with POINTER 
! attribute. 

REAL, POINTER :: ptr(:) 

REAL, TARGET :: tgt(2) = (/ -2.2, - 1.1 /) ! initialize target 

PRINT *, "Initial status of pointer:" 
call get_ptr_sts 

ptr => tgt ! pointer assignment 

PRINT *, "Status after pointer assignment:" 

call get_ptr_sts 

PRINT *, "Contents of target by reference to pointer:", ptr 

! use an array constructor to assign to tgt by reference to ptr 
ptr = (/ 1.1, 2.2 /) 

PRINT *, "Contents of target after assignment to pointer:", tgt 
NULLIFY(ptr) 

PRINT *, "Status after pointer is nullified:" 
call get_ptr_sts 

ALLOCATE(ptr(5)) ! allocate pointer 
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PRINT *, "Status after pointer is allocated:" 

! To learn if pointer is allocated, call the ASSOCIATED 
! intrinsic without the second argument 

IF (ASSOCIATED(ptr)) PRINT *, " Pointer is allocated." 

ptr = (/ 3.3, 4.4, 5.5, 6.6, 7.7 /) ! array assignment 

PRINT *, 'Contents of array pointer:', ptr 

DEALLOCATE(ptr) 

PRINT *, "Status after array pointer is deallocated:" 

IF (.NOT. ASSOCIATED(ptr)) PRINT *, " Pointer is deallocated." 

CONTAINS 

! Internal subroutine to test pointer's association status. 

! Pointers can be passed to a procedure only if its interface 
! is explicit to the caller. Internal procedures have an 
! explicit interface. If this were an external procedure, 

! its interface would have to be declared in an interface 
! block to be explicit. 

SUBROUTINE get_ptr_sts 

IF (ASSOCIATED(ptr, tgt)) THEN 

PRINT *, " Pointer is associated with target." 

ELSE 

PRINT *, " Pointer is disassociated from target." 

END IF 

END SUBROUTINE get_ptr_sts 
END PROGRAM main 

Here are the command lines to compile and execute the program, along 
with the output from a sample run: 

$ f90 ptr_sts.f90 
$ a.out 

Initial status of pointer: 

Pointer is disassociated from target. 

Status after pointer assignment: 

Pointer is associated with target. 

Contents of target by reference to pointer: -2.2 -1.1 
Contents of target after assignment to pointer: 1.1 2.2 
Status after pointer is nullified: 

Pointer is disassociated from target. 

Status after pointer is allocated: 

Pointer is allocated. 

Contents of array pointer: 3.3 4.4 5.5 6.6 7.7 
Status after array pointer is deallocated: 

Pointer is deallocated. 
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This chapter describes arrays and the array-handling features of 
HP Fortran. This includes the foil owing topics: 

• Array fundamentals 

• Array declarations 

• Array-valued structure component references 

• Array constructors 

• Array expressions 

• Array-valued functions 

• Array inquiry intrinsics 




Arrays 
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Array fundamentals 

An array consists of a set of elements, each of which is a scalar and has 
the same type and type parameter as declared for the array. Elements 
are organized into dimensions. Fortran 90 allows arrays up to seven 
dimensions. The number of dimensions in an array determines its rank. 

Dimensions have an upper bound and a lower bound. The total 
number of elements in a dimension—its extent— is calculated by the 
formula: 

upper-bound - lower-bound + l 

The size of an array is the product of its extents. If the extent of any 
dimension is zero, the array contains no elements and is a zero-sized 
array. 

E lements within an array are referenced by subscripts— one for each 
dimension. A subscript is a specification expression and is enclosed in 
parentheses. As an extension, HP Fortran allows a subscript expression 
of type real; the expression is converted to type integer after it has been 
evaluated. 

The shape of an array is determined by its rank and by the extents of 
each dimension of the array. An array's shape may be expressed as a 
vector where each element is the extent of the corresponding dimension. 
For example, given the declaration: 

REAL, DIMENSION (10,2,5) :: x 

theshapeofx can be represented by the vector [io, 2, 5]. 

Two arrays are conformable if they have the same shape, although the 
lower and upper bounds of the corresponding dimensions need not be the 
same. A scalar is conformable with any array. 

A whole array is an array referenced by its name only, as in the 
fol Iowi ng statements: 

REAL, DIMENSION(10) :: x, y, z 

PRINT *, x 
x = y + z 
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The array element order used by HP Fortran for storing arrays is 
column-major order; that is, the subscripts along the first dimension 
vary most rapidly, and the subscripts along the last dimension vary most 
slowly. For example, given the declaration: 

INTEGER, DIMENSION(3,2) :: a 

the order of the elements would be: 

a (1, 1) 
a (2,1) 
a (3,1) 
a(1,2) 
a (2,2) 
a(3,2) 


The foil owing array declarations illustrate some of the concepts 
presented in this section: 

! The rank of al is 1 as it only has one dimension, the extent of 
! the single dimension is 10, and the size of al is also 10. 

! al has a shape represented by the vector [10]. 

REAL, DIMENSION(10) :: al 

! a2 is declared with two dimensions and consequently has a rank 
! of 2, the extents of the dimensions are 2 and 4 
! respectively,and the size of a2 is 8. 

! The array's shape can be represented by the vector [2, 4]. 
INTEGER, DIMENSION(2,4) :: a2 

! a3 has a rank of 3, the extent of the first two dimensions is 
! 5,and the extent of the third dimension is zero. The size of 
! a3 is the product of all the extents and is therefore zero. 

! The shape of a3 can be represented by the vector [5, 5, 0]. 
LOGICAL, DIMENSION(5,5, 0) :: a3 

! a and b are conformable, c and d are conformable. The shape of 

! a and b can be represented by the vector [3, 4]. The shape of 

! c and d can be represented by the vector [6, 8]. 

REAL, DIMENSION :: a(3,4), b(3,4), c(6,8), d(-2:3,10:17) 
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An array is a data object with the dimension attribute. Its rank—and 
possibly the extents—are defined by an array specification. The array 
specification is enclosed in parentheses and can be attached either to the 
dimension attribute, as in: 

INTEGER, DIMENSION(17) :: a, b 

or to the array name, as in: 

REAL : : y (3,25) 

If the array specification is attached both to the dimension attribute 
and tothe array namein the same declaration statement, the 
specification attached tothe name takes precedence. In the following 
example: 

INTEGER, DIMENSION(4,7) :: a, b, c(15) 

a and b are declared as two-dimensional arrays, but c is declared as a 
one-dimensional array. 

An array specification can declare an array as one of the following: 

• Explicit-shape array 

• Assumed-shape array 

• D efer red-sh a pe a r ray 

• Assumed-size array 

The following sections describe these types and the form of the array 
specification for each type. For information about initializing arrays with 
the array constructor, see "Array constructors" on page 71. 
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Explicit-shape arrays 

An explicit-shape array has explicitly declared bounds for each 
dimension; the bounds are neither taken from an actual array argument 
("assumed") nor otherwise specified prior to use ("deferred”). Each 
dimension of an explicit-shape array has thefollowing form: 

[lower-bound :] upper-bound 

where lower-bound and upper-bound are specification expressions and 
may be positive, negative, or zero. The default for lower-bound is 1. 

For a given dimension, the values of lower-bound and upper-bound define 
the range of the array in that dimension. Usually, lower-bound is less 
than upper-bound; if lower-bound is the same as upper-bound, then the 
dimension contains only one element; if it is greater, then the dimension 
contains no elements, the extent of the dimension is zero, and the array 
is zero-sized. 

The simplest form is represented by an array declaration in which the 
name of the array is not a dummy argument and all bounds are constant 
expressions, as in thefollowing example: 

INTEGER : : a (100,4,5) 

This form of array may have the save attribute and may be declared in 
any program unit. 

Other forms of the explicit-shape array include: 

• An automatic array: An array that is declared in a subprogram but 
is not a dummy argument and has at least one nonconstant bound. 
Automatic arrays may be declared in a subroutine or function, but 
may not have the save attribute nor be initialized. 

Character strings can also be declared as automatic data objects; see 
"Character strings as automatic data objects" on page 37. 

• A dummy array: An array that is identified by its appearance in a 
dummy argument list; its bounds may be constants or expressions. 
Dummy arrays may only be declared in a subroutine or function. 

• An adjustable array: A particular form of a dummy array. Its name 
is specified in a dummy argument list, and at least one of its bounds 
is a nonconstant specification expression. 
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Explicit-shape arrays may also be used as function results, as described 
in "Array-valued functions"on page 76 and in "Array dummy argument" 
on page 140. 

The following code segment illustrates different forms of explicit-shape 
arrays: 

SUBROUTINE sort(list 1,list2,m,n) 

! examples of arrays with explicit shape 
INTEGER :: m,n 
INTEGER :: cntl(2:99) 

! a rank-one array, having an explicit shape represented by 
! the vector [98] 

REAL :: listl(lOO), list2(0:m-l,-m:n) 

! two dummy arrays with explicit shape: listl is a rank-one 
! array with an extent of 100; list2 is a rank-two array with an 
! extent of m * (m+n+1). Iist2 is also an adjustable array. 

REAL :: work(100,n) 

! work is an automatic array; it does not appear in the dummy 
! argument list and at least one of its bounds is not constant 

INTEGER, PARAMETER :: buffsize = 0 
REAL :: buffer (1: buffsize) 

! buffer has explicit shape, but no elements and is zero-sized 


END SUBROUTINE sort 


Assumed-shape arrays 

An assumed-shape array is a dummy argument that assumes the 
shape of the corresponding actual argument. It must not have the 
pointer attribute. Each dimension of an assumed-shape array has the 
form: 

[lower-bound] : 

where lower-bound is a specification expression. The default for lower- 
bound is 1. 

The actual argument and the corresponding dummy argument may have 
different bounds for each dimension. An assumed-shape array subscript 
may extend from the specified lower-bound to an upper bound that is 
equal to lower-bound plus the extent in that dimension of the actual 
argument minus one. 
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The following code segment illustrates different declarations of assumed- 
shape arrays. 

SUBROUTINE initialize (a,b,c,n) 

! examples of assumed-shape arrays 
INTEGER :: n 

INTEGER :: a(: ) 

! the array a is a rank-one assumed-shape array, it takes its 
! shape and size from the corresponding actual argument; its 
! lower bound is 1 regardless of the lower bound defined for 
! the actual argument 

COMPLEX :: b(ABS(n):) 

! a rank-one assumed-shape array, the lower bound is ABS(n) and 
! the upper bound will be the lower bound plus the extent of 
! the corresponding actual argument minus one 

REAL, DIMENSION) :: c 

! an assumed-shape array with 5 dimensions; the lower bound for 
! each dimension is 1 


END SUBROUTINE initialize 

If a procedure has an argument that is an assumed-shape array, its 
interface must be explicit within the cal ling program unit. A procedure's 
interface is explicit if it is an internal procedure within the caller 
procedure or if the interface is declared in an interface block within the 
caller. 

For example, to call theexternal subroutine initialize in the previous 
example, its interface must appear in an interface block, as in the 
following: 

PROGRAM main 

INTEGER :: parts(0:100) 

COMPLEX :: coeffs(lOO) 

REAL :: omega(-2:+3, —l:+3, 0:3, 1:3, 2:3) 

INTERFACE 

SUBROUTINE initialize (a,b,c,n) 

INTEGER :: n 
INTEGER :: a(: ) 

COMPLEX :: b(ABS(n):) 

REAL, DIMENSION) :: c 

END SUBROUTINE initialize 
END INTERFACE 

CALL initialize(parts,coeffs,omega,lbound(omega,1)) 


END PROGRAM main 
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SUBROUTINE initialize (a,b,c,n) 
INTEGER :: n 
INTEGER :: a(:) 

COMPLEX :: b(ABS(n):) 

REAL, DIMENSION ) :: c 


END SUBROUTINE initialize 

For more information about: 

• I nternal procedures, see "I nternal procedures” on page 135 

• I nterface blocks, see "Procedure interface” on page 151 

• Arrays used as dummy arguments, see "Array dummy argument" on 
page 140 

Deferred-shape arrays 

A deferred-shape array has either the pointer attribute or the 
allocatable attribute. Its shape is not specified until the array is 
pointer assigned or allocated. Although a deferred-shape array can have 
the same form as an assumed-shape array, the two are different. The 
assumed-shape array is a dummy argument and must not have the 
pointer attribute. 

The array specification for a deferred-shape array has the form: 


The specification for a deferred-shape array defines its rank but not the 
bounds. The bounds are defined either when the array is allocated or 
when an array pointer becomes associated with a target. 

Array pointers and allocatable arrays are described in the following 
sections. 
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Array pointers 

An array pointer is a deferred-shape array with thepoiNTER attribute. 
Its bounds and shape are defined only when the array is associated with 
a target in a pointer assignment statement or in an allocate 
statement. An array pointer must not be referenced until it is associated. 

Following are example declarations of array pointers: 

! pi is declared as a pointer to a rank-one 
! array of type real; pi is not associated with any target 
REAL, POINTER, DIMENSION(:) :: pi 

! p2 is a pointer to an integer array of rank-two; 

! it must be associated with a target before it can be referenced 
INTEGER, POINTER :: p2(:,:) 

! err is a pointer to a rank-3 array of type err_type 
TYPE err_type 

INTEGER :: class 
REAL :: code 
END TYPE err_type 

TYPE(err_type), POINTER, DIMENSION) :: err 

! The next statement is ILLEGAL: pointers cannot have an 
! explicit shape. 

INTEGER, POINTER :: p3(n) 

For information about associating an array pointer with a target, see 
"Pointers” on page 47. For information about thepoiNTER attribute and 
allocate statement, see Chapter 10, "HP Fortran Statements.” 

Allocatable arrays 

An allocatable array is a deferred-shape array with the allocatable 
attribute. Its bounds and shape are defined when it is allocated with the 
allocate statement. Once allocated, the allocatable array may be used 
in any context in which any other array may appear. An allocatable array 
can also be deal located with the deallocate statement. 

An allocatable array has an allocation status that can be tested with the 
allocated intrinsic inquiry function. Its status is unallocated when the 
array is first declared and after it is deallocated in a deallocate 
statement. After the execution of the allocate statement, its status is 
allocated. An allocatable array with the unallocated status may not be 
referenced except as an argument to the allocated intrinsic or in an 
allocate statement. I f it has the al I ocated status, it may not be 
referenced in the allocate statement. It is an error to allocate an 
allocatable array that is already allocated, or to deal locate an allocatable 
array either before it is allocated or after it is deallocated. 
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I n HP Fortran, an allocatable array that is unallocated, is local to a 
procedure, and does not have the save attribute. It is automatically 
deallocated when the procedure exits. 

The following example, alloc_array.f90, calls a subroutine that allocates 
and deallocates an allocatable array and uses the allocated intrinsic 
function to test its allocation status: 

alloc_array.f90 

PROGRAM main 

! driver program for calling a subroutine that allocates and 
! deallocates an allocatable array 
CALL test_alloc_array 
END PROGRAM main 

SUBROUTINE test_alloc_array 

! demonstrate how to allocate and deallocate an allocatable array 

! the array matrix is rank-2 allocatable array, with no 
! shape or storage 

REAL, ALLOCATABLE, DIMENSION(:,:) :: matrix 

INTEGER :: n 
LOGICAL :: sts 

! sts is assigned the value .FALSE, as the array is not yet 
! allocated 

sts = ALLOCATED(matrix) 

PRINT *, 'Initial status of matrix: ', sts 

PRINT *, 'Enter an integer (rank of array to be allocated):' 
READ *,n 

! dynamically create the array matrix; after allocation, array 
! will have the shape [ n, n ] 

ALLOCATE(matrix(n, n) ) 


! test allocation by assigning to array 
matrix(n,n) = 9.1 

PRINT *, 'matrix(',n,',',n,') = ', matrix(n,n) 

! sts is assigned the value .TRUE, as the allocatable array 
! does exist and its allocation status is therefore allocated 
sts = ALLOCATED(matrix) 

PRINT *, 'Status of matrix after ALLOCATE: ', sts 
DEALLOCATE (matrix) 

! sts is assigned the value .FALSE, as the 
! allocation status of a deallocated array 
sts = ALLOCATED (matrix) 

PRINT *, 'Status of matrix after DEALLOCATE: ', sts 
END SUBROUTINE test_alloc_array 
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Here are the command lines to compile and execute the program, along 
with the output from a sample run: 

$ f 90 alloc_array.f 90 
$ a.out 

Initial status of matrix: F 

Enter an integer (rank of array to be allocated): 

4 

matrix ( 4,4)= 9.1 

Status of matrix after ALLOCATE: T 

Status of matrix after DEALLOCATE: F 

For information about the allocatable, allocate, deallocate 

statements, see Chapter 10, "HP Fortran Statements." See also 
"ALLOCATED(ARRAY)"on page493. 

Assumed-size arrays 

An assumed-size array is a dummy argument whose size is taken from 
the associated actual argument. Its declaration specifies the rank and 
the extents for each dimension except the last. The extent of the last 
dimension is represented by an asterisk (*), as in the following: 

INTEGER : : a (2, 5, *) 

All dummy array arguments and their corresponding actual arguments 
share the same initial element and are storage associated. In the case of 
explicit-shape and assumed-size arrays, the actual and dummy array 
need not have the same shape or even the same rank. The size of the 
dummy array, however, must not exceed the size of the actual argument. 
Therefore, a subscript in the last dimension of an assumed-size array 
may extend from the lower bound to a value that does not cause the 
reference to go beyond the storage associated with the actual argument. 

Because the last dimension of an assumed-size array has no upper 
bound, the dimension has no extent and the array consequently has no 
shape. The name of an assumed-size array therefore cannot appear in 
contexts in which a shape is required, such as a function result or a 
whole array reference. 
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The following example, assumed_size.f90, illustrates two assumed-size 
arrays: x (declared in subr) and i_array (declared in func): 

assumed_size.f90 

PROGRAM main 

REAL :: a (2,3) ! an explicit-shape array, represented by the 

! vector [10, 10] 

k = 0 

DO i = 1, 3 
DO j = 1, 2 
k = k + 1 
a (j, i) = k 
END DO 
END DO 

PRINT *, 'main: a =', a 
CALL subr (a) 

END PROGRAM main 

SUBROUTINE subr(x) 

REAL :: x(2,*) ! an assumed-size array; the subscript for the 

! last dimension may take any value 1-3 

! PRINT *, x ! ILLEGAL, whole array reference not allowed 

PRINT *, 'main: x(2, 2) = ', x(2, 2) 

PRINT *, 'returned by func: ', func (x), ', the value in x(2,3)' 

END SUBROUTINE subr 

REAL FUNCTION func(y) 

REAL :: y (0:*) ! an assumed-size array; the subscript may 

! take any value 0-5 


func = y(5) 

END FUNCTION func 

Here are the command lines to compile and execute the program, along 
with the output from a sample run: 

$ f90 assumed_size.f90 
$ a.out 

main: a = 1.0 2.0 3.0 4.0 5.0 6.0 
main: x(2, 2 ) = 4.0 

returned by func: 6.0 , the value in x(2,3) 


An assumed-size array is a FORTRAN 77 feature that has been 
superseded by the assumed-shape array; see "Assumed-shape arrays” on 
page 56. 
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Array sections 

An array section is a selected portion of another array (the parent) that 
is itself an array, even if it consists of only one element, or possibly none. 
An array section can appear wherever an array name is allowed. 

The syntax for specifying an array section is: 

array-name (section-subscript-1ist) [ (substring-range) ] 

where: 

secti on-su bscri pt-l i st 

is a comma-separated list of section-subscript. 

section-subscript 

is one of: 

• subscript 

• subscript-triplet 

• vector-subscript 

subscript 

is a scalar integer expression. 

subscript-triplet 

takes the form: 

[subscript] : [subscript] [:stride] 
where stride is a scalar integer expression. 

vector-subscript 

is a rank-one integer array expression. 

substring-range 

specifies a character substring, as described in 
"Character substrings" on page 36. If substring-range 
is specified, array-name must be of type character. 

Secti on-su bscri pt-l ist must specify secti on-subscri pt for each di mension of 
the parent array. The rank of the array section is the number of 
subscript-triplets and vector -subscripts that appear in thesection- 
subscri pt-l ist. Becausean array section is also an array, at least one 
subscript-triplet or vector-subscript must be specified. 
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The following sections provide more information about subscript-triplet 
and vector-subscript. 

Subscript triplet 

A subscript triplet selects elements from the parent array to form 
another array. It specifies a lower bound, an upper bound, and a stride 
for any dimension of the parent array. Elements areselected in a regular 
manner from a dimension. The stride can, for example, select every 
second element. 

All three components of a subscript triplet areoptional. If a bound is 
omitted, it is taken from the parent array. However, an upper bound 
must be specified if a subscript triplet is used in the last dimension of an 
assumed-sized array. 

A bound in a subscript triplet need not be within the declared bounds for 
that dimension of the parent array if all the elements selected are within 
its declared bounds. If the stride is omitted, the default is to increment 
by one. 

The stride must not be zero. If it is positive, the subscripts range from 
the lower bound up to and including the upper bound, in steps of stride. 
When the difference between the upper bound and lower bound is not a 
multiple of the stride, the last subscript value selected by the subscript 
triplet is the largest integer value that is not greater than the upper 
bound. Thearray expression a (l: 9: 3) selects subscripts 1, 4, and 7 
from a. 

Strides may also be negative. A negative stride selects elements from the 
parent array starting at the lower bound and proceeds backwards 
through the parent array in steps of the stride down the last value that is 
greater than the upper bound. For example, the expression a (9: l: - 3) 
selects the subscripts 9, 6, and 3 in that order from a. 

If the section bounds are such that no elements areselected in a 
dimension (for example, the section a (2 : l) ), the section has zero-size. 
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The following example shows subscript triplet notation assigning the 
same value to a regular pattern of array elements. 

INTEGER, DIMENSION(3,6) :: x,y,z ! declare 3 3x6 arrays 

! initialize the arrays, using whole-array assignments. 
x = 0; y=0; z = 0 

! assign to elements of x, y, and z, using subscript triplets 
x(3,2:4:1) = 1 

y(2,2:6:2) = 2 

z (1:2,3:6) =3 


The arrays x, y, and z now have the following values: 


x 

0 0 0 0 0 0 
0 0 0 0 0 0 
0 1110 0 


Y 

0 0 0 0 0 0 

0 2 0 2 0 2 

0 0 0 0 0 0 


z 

0 0 3 3 3 3 
0 0 3 3 3 3 
0 0 0 0 0 0 


I n the foil owing example of an array substring, the variable 
dates (5:10) is an array section that includes elements 5 through to 10 
of the parent array dates, and the variable dates (5 :10) ( 8 : 11 ) is also 
an array section of the array dates but only contains the last 4 character 
positions of the elements 5 through to 10. 

CHARACTER(11) :: dates(20) 

dates (5:10) (8:11) = "1776" 


Vector subscripts 

A vector subscript is any expression that results in a rank-one array 
with integer value. The values of the array select the corresponding 
elements of the parent array for a given dimension. Vector subscripts can 
describe an irregular pattern and may be useful for indirect array 
addressing. For example, if v represents a rank-one integer array 
initialized with the values 4, 3, 1, 7, then the array section a (v) is a 
rank-one array composed of the array elements a (4), a (3), a(i), and 
a (7) —in that order. 

Vector subscripts are commonly specified using array constructors, 
which are described in the next section. For example, the expressions 
a(v) anda( (/ 4, 3, l, 7/) ) reference the same section of thearray 

a. 
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Vector subscripts may not appear: 

• On the right hand side of a pointer assignment statement. 

• I n an I/O statement as an internal file. 

• As an actual argument that is associated with a dummy argument 
declared with intent (out) or intent (inout) or with no intent. 

A vector subscript may specify the same element more than once. When 
a vector subscript of this form specifies an array section, the array 
section is known as a many-one array section. An exampleof a many-one 
array section is: 

a ( (/ 4, 3, 4, 7/) ) 

where element 4 has been selected twice. A many-one array section may 
not appear in either an input list or on the left-hand side of an 
assignment statement. 

The following example, vector_sub.f90, illustrates an array section using 
a section subscript list. 

vector_sub.f90 

PROGRAM main 

! m is a rank-1 array that has been 

! initialized with the values of an array constructor 
INTEGER, DIMENSION(4) :: m = (/ 2, 3, 8, 1/) 

INTEGER :: i 

! initialize a (a rank-1 array) with the values 
! 1.1, 2.2, 3.3, 4.4, 5.5, 6.6, 7.7, 8.8, 9.9, 11.0 
REAL, DIMENSION(10) :: a = (/ (i*l.l, i=l,10) /) 

! b is an uninitialized 4x2 array 
REAL, DIMENSION(4,2) :: b 

! print a section of a, using a vector subscipt 
PRINT *,a(m) 

! assign the values 5.5, 11.0, 6.6, and 5.5 to the first column 

! b; this is an example of a many-one array 
b (:,1) = a( (/ 5, 10, 6, 5/) ) 

! the vector subscript MIN(m,4) represents a rank-1 array with 
! the values 2, 3, 4, 1; the second column of b is assigned 
! the values 11.0, 6.6, 5.5, 5.5 
b ( :, 2) = b (MIN (m, 4 ) , 1) 

! increment a(2), a(3), a(8), and a(l) by 20.0 
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a(m) = a(m) + 20.0 

! print the new values in a 
PRINT *,a 
END PROGRAM main 

Here are the command lines to compile and execute the program, along 
with the output from a sample run: 

$ f90 vector_sub.f90 
$ a.out 

2.2 3.3 8.8 1.1 

21.1 22.2 23.3 4.4 5.5 6.6 7.7 28.8 9.9 11.0 
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Array-valued structure component 
references 

A structure component reference can specify an array or a scalar. If, for 
example, the parent in the reference is declared as an array and likewise 
one of the components is declared as an array, this makes possible an 
array-valued structure component reference Conceptually, an array¬ 
valued structure component reference is similar to a reference to an 
array section (see "Array sections” on page 63). 

Consider the following code: 

TYPE student_data 

CHARACTER(25) :: name 

INTEGER :: average, test (4) 

END TYPE student_data 

TYPE course_data 

CHARACTER(25) :: course_title 

INTEGER :: course_num, class_size 

TYPE(student_data) :: student(10) 

END TYPE course_data 

TYPE (course_data) :: course (5) 

These statements prepare a database for maintaining course information 
for 50 students—10 students per course. The information about the 
students is held in student— an array of derived type. Likewise, the 
information about the five courses is held in course, which is alsoan 
array of derived type and which has student as one of its components. 
The following statement assigns a test score toa one student in one 
course, using a structure component reference: 

course(5)%student(7)%test(4) = 95 

The reference is scalar-valued: 95 is assigned to a single element, 

test (4 ) Of student (7 ) of course (5 ) . 

However, it is also possibleto reference more than one element in a 
structure component reference. The following statement assigns the 
same score to one test taken by all students in one course: 

course(4)%student%test(3) = 60 

The structure component referenceis array-valued because thirty 
elements are assigned with the one reference. The reference is to a 
section of the array course, rather than tothe entire array. 
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The next statement also makes an array-valued structure component 
reference to initialize all the tests of one student in one course: 

course(3)%student(3)%test = 0 

The next statement uses a subscript triplet in an array-valued structure 
component reference to assign the same score to one test of three 
students in one course: 

course(2)%student(1:3)%test(4) = 82 

It would be convenient if we could initialize all tests of all students in all 
courses to 0. But the Standard does not allow structure component 
references in which more than one of the parts specifies a rank greater 
than 0. In other words, thefollowing is not legal: 

course%student%test = 0 ! ILLEGAL 

Thefollowing example, array_val_ref.f90, contains the code examples 
listed in this section: 

array_val_ref.f90 

PROGRAM main 

! illustrates array-valued structure component references 

! define a derived type that will be used to declare an 

! object of this type as a component of another derived type 

TYPE student_data 

CHARACTER(25) :: name 

INTEGER :: average, test (4) 

END TYPE student_data 

TYPE course_data 

CHARACTER(25) :: course_title 

INTEGER :: course_num, class_size 

TYPE(student_data) :: student(10) ! an array of derived 

! type 

END TYPE course_data 

TYPE (course_data) :: course (5) ! an array of derived 

! type 

! scalar-valued structure component reference 
course(5)%student(7)%test(4) = 95 
PRINT *, course(5)%student(7)%test(4) 

! array-valued structure component reference 
course(4)%student%test(3) = 60 
PRINT *, course(4)%student%test(3) 

! array-valued structure component reference 
course (3)%student(3)%test = 0 
PRINT *, course(3)%student(3)%test 
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! array-valued structure component reference, using 

! a subscript triplet to reference a section of the 

! array component student 

course(2)%student(1:3)%test(4) = 82 

PRINT *, course(2)%student(1:3)%test(4) 

! the following commented-out statement is illegal: 

! only one part (of the combined components and 
! parent) in a structure component reference 
! may have a rank greater than 0. 

! course%student%test = 0 

END PROGRAM main 

Here are the command lines to compile and execute the program, along 
with the output from a sample run: 

$ f90 array_val_ref. f90 
$ a.out 

95 

60 60 60 60 60 60 60 60 60 60 
0 0 0 0 
82 82 82 
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Array constructors 

An array constructor is used to assign values to an array. The 
generated values are supplied from a list of scalar values, arrays of any 
rank, and implied do specifications. An array constructor may appear in 
any context in which a rank-one array expression is allowed. An array 
with a rank greater than one may deconstructed by using the reshape 
intrinsic function. The type of an array constructor is taken from the 
values in the list, which must all have the same type and type 
parameters (including character length). The extent is taken from the 
number of values specified. 

The syntax of an array constructor is: 

(/ ac-value-list /) 

where ac-value-list is a comma-separated list of one or more ac-values. 
Each ac-valuemay be any of the foil owing: 

• Scalar expressions, for example: 

(/ 1.2, 0.0, 2.3 /) 

• An array expression, for example: 

(/ x (0 : 5) /) 

where the values in x (0) through x (5) become the values of the 
array constructor. If the array the value list has a rank greater than 
one, the values are generated in column-major order, as explained in 
"Array fundamentals" on page 52. 

• An implied-DO specification, taking the form: 

(ac-value-list, do-var = exprl, expr2 [, expr3]) 

where do-var is the name of a scalar integer variable, exprl is the 
initial value, expr2 is thefinal value, and expr2 is thestride (the 
default is 1). For example: 

(/ i, i = 1, 10 ) 
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When used to initialize an array in a type declaration or in an 
assignment statement, all elements in the array must be initialized. For 
example, the following is illegal: 

INTEGER :: i (10) = (/ 1, 2, 3 /) ! ILLEGAL: too few 

! initializers 

If no values are supplied, the array constructor is zero-sized. For 
example, the size of the foil owing array constructor: 

(/ ( i, |=10,n) /) 

depends on the value of the variablen; if the value of the variable is less 
than 10, then the constructor contains no values. 

If the list contains only constant values, the array constructor may 
initialize a named constant or a type declaration statement. An array 
constructor may not initialize variables in a data statement, which may 
contain scalar constants only. 

Asan extension, H P Fortran allows the use of [and] in placeof (/and 

/). 

The following are examples of array constructors: 

! array x is assigned three real values, 
x = (/19.3, 24.1, 28.6/) 

! One vector, consisting of 16 integer values, is assigned to j 
j = (/ 4, 10, k (1:5) , 2 + 1, (m(n), n = -7,-2),16, 1/) 

! assign 5 values 
a = (/(base(k), k=l,5)/) 

! The named constant t is a rank-one array initialized with 
! the values 36.0 and 37.0 
REAL,DIMENSION (2) :: t 
PARAMETER (t=(/ 36.0, 37.0/)) 

! the array constructor is reshaped as 1357 
! 2 4 6 8 

! and is then assigned to z 
z=RE SHAPE ((/l,2,3,4,5,6,7,8/), (/2,4 /) ) 

! an array constructor is used for the second component of 
! the structure constructor 
alaska = site ("NOME", (/—63,4/)) 

diagonal = (/ (b(i,i), i=l,n) /) 

hilbert = RESHAPE ( (/ ( (1.0/ (i + j), i=l,n), j = l,n) /), (/ n,n /) ) 

ident = RESHAPE ( (/ (1, (0, 1=1,n), j = l,n-l), 1 /), (/ n, n /) ) 
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As shown in last three examples, an array constructor with implied- do 
loops and the reshape function permit construction of arrays that 
cannot otherwise be expressed conveniently with alternative notations. 
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Array expressions 

Array operations areperformed in parallel. That is, an operation is 
performed on each element independently and in any order. The practical 
effect of this is that, because an assignment statement may have the 
same array on both the left and right-hand sides, the right-hand side is 
fully evaluated before any assignment takes place. This means that in 
some cases the compiler may create temporary space to hold 
intermediate results of the computation. 

A scalar may appear in an array expression. If the scalar is used in an 
expression containing whole array references—for example 

a = b + 2.0 ! a and b are conformable arrays of type real 

then the effect is as if the scalar were evaluated and then broadcast to 
form a conformable array of elements, each having the value of the 
scalar. Thus, a scalar used in an array context is conformable with the 
array or arrays involved. 

Zero-sized arrays may also appear in an array expression. Although they 
have no elements, they do have a shape and must therefore follow the 
rule of conformable arrays. Because scalars are conformable with any 
array, they may therefore appear in an operation involving a zero-sized 
array. 

The following illustrates valid and invalid array expressions. 

SUBROUTINE foo(a,b,c) 

! a is an assumed-shape array with rank-one 
REAL :: a(:) 

! b is a pointer to a rank-two array 
REAL, POINTER :: b(:,:) 

! c is an assumed-size array 
REAL :: c(*) 

! d is an allocatable array; its shape can only be defined in an 
! ALLOCATE statement 
REAL, ALLOCATABLE :: d(:) 

! create the array d with the same size as a; a and d have 
! the same shape and are therefore conformable 
ALLOCATE(d(SIZE(a))) 

! copy the array a into d 
d = a 
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! sets each element of the array associated with b to 0.0; 

! the effect is as if the scalar were broadcast into a 
! temporary array, with the same shape as b; b is then assigned 
! to theleft-hand side 
b = 0.0 

! corresponding elements of a and d are added together and then 
! stored back into the corresponding array element of d 
d = a + d 

! conceptually the operand SQRT(d) is evaluated into an 
! intermediate array with the same shape as d; each element of 
! the intermediate array will be added to the corresponding 
! element of a and stored into the corresponding element of d 
d = a + SQRT(d) 

DEALLOCATE(d) 

! examples of illegal uses of arrays: 

! ILLEGAL - c is an assumed-size array and so has no shape; 

! an assumed-size array may not be used as a whole array 
! operand(except in an argument list) 
a = c 

! ILLEGAL - the arrays a and b do not have the same shape and are 
! therefore not conformable 
a = a + b 

! ILLEGAL - d was previously deallocated and must not be 
! referenced subsequently 
a = a + d 

END SUBROUTINE foo 
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Array-valued functions 

A function may be array-valued; that is, its return value may evaluate to 
an array of values rather than to a scalar. Array-valued functions may 
appear in any array expression except: 

• I n an input list 

• On the left side of an assignment statement (unless returning the 
result from within a function) 

Array-valued functions may also be used in an array expression 
wherever a scalar function reference is allowed but must be 
conformable—that is, the function result must have the same shape as 
the expression. 

The following sections describe intrinsic functions and user-defined 
functions that are array-valued. 

I ntrinsic functions 

Elemental procedures and transformation procedures have particular 
relevance to array expressions. Elemental procedures—for example, 
sqrt and sin— are specified for scalar arguments, but with an array 
argument they return an array-valued result with the same shape as the 
argument. Each element of the result is as if the function were applied to 
each corresponding element of the argument. 

A transformational procedure—for example, reshape, sum, and 
matmul— generally has one or more array arguments that the procedure 
operates on as a whole, and usually returns an array-valued result 
whose elements may depend not only on the corresponding elements of 
the arguments but also on the values of other elements of the arguments. 

User-defined functions 

User-defined functions can return either a scalar-valued result or an 
array-valued result. A scalar function can appear in an array expression; 
its effect is to broadcast its value throughout a conformable array. A 
referencetoa user-defined array-valued function must obey the rules for 
functions in general, and must also conform to the shape of the 
expression in which it appears. 
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User-defined functions are described in "External procedures" on 
page 128 . 

The following code segment illustrates two array-valued functions, 
genrand (user-defined) and reshape (intrinsic): 

PROGRAM main 

! The following interface block describes the characteristics of 
! the function genrand; the function inputs a single integer 
! scalar and returns a real array of rank-one with an extent 
! equal to the value of its argument 
INTERFACE 

FUNCTION genrand(n) 

INTEGER:: n 

REAL, DIMENSION (n)::genrand 
END FUNCTION genrand 
END INTERFACE 

REAL :: a (100) 

REAL :: b(10,10) 

! set array a to the result returned by the function genrand; 

! note that the left and right hand side are conformable 
a = genrand(SIZE(a)) 

! add each element of a to the corresponding element of the 
! result returned by genrand, forming an intermediate rank-one 
! result that is passed into the intrinsic function RESHAPE. 

! This intrinsic transforms its argument into a 10 by 10 array. 

! Again, the left and right hand side are conformable, 
b = RESHAPE(a + genrand(100),(/ 10, 10 /)) 


END PROGRAM main 
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Table 9 


Array inquiry intrinsics 

Table 9 lists and briefly describes the inquiry intrinsicfunctions that 
return the properties of an array For a full description of these intrinsics, 
see Chapter 11, "I ntrinsic procedures,” on page 475. 


Array inquiry intrinsic functions 


Intrinsic 

Description 

ALLOCATED 

Returns the allocation status of an allocatable array; 
see "Allocatable arrays” on page 59. 

ASSOCIATED 

Returns the association status of an array pointer; 
see "Pointer association status" on page 48. 

LBOUND 

Returns either the lower bound of a specified 
dimension or the lower bounds of the array as a 
whole. 

SHAPE 

Returns the shape of the array as a rank-one integer 
array. 

SIZE 

Returns the size of the array or the extent of a 
particular dimension. 

UBOUND 

Returns the upper bound of a specified dimension or 
the upper bounds of the array as a whole. 
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NOTE 


This chapter describes expressions and assignment. More specifically, it 
covers thefollowing topics: 

• Expressions, including their components: 

- Operands 

- Operators 

- Special forms of expression 

• Assignment, including thefollowing topics: 

- Assignment statement 

- Pointer assignment 

- M asked array assignment 

This chapter discusses intrinsic operators and assignment only. For 
information about user-defined operators and assignment, see “Defined 
operators” on page 155 and “Defined assignment” on page 157. 
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Expressions 

An expression is the specification of data and, possi bly, a set of 
operations that enable the computer to evaluate the expression and 
produce a value. Because an expression results in a value, it has a type, 
kind, and shape. If an expression is of the character type, it also has a 
length parameter. 

The general form of an expression is: 

[operandl] operator operand2 
operandl, operand2 

are data objects or expressions that evaluate to data. 
They may be array-valued or scalar-valued. 

operator 

is either an intrinsic or defined operator. If operator is 
unary operandl must not be specified. 

The following sections describe operands, operators, and expressions in 
more detail. 

Operands 

An operand may beany of the foil owing: 

• A constant or a variable, such as l. o, ' ab ', or a 

• An array element or an array section, such as a (l, 3) or a (1,2:3) 

• A character substring or a structure component, such as ch (l : 3) or 

employee%name 

• An array constructor, such as (/l. 0,2.0/) 

• A structure constructor, such as 

employee(8, "Wilson", 123876) 

• A function reference, such as sqrt (x) 

• An expression in parentheses, such as (b + siN(y)**2) 
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Any variable or function reference used as an operand in an expression 
must have been previously defined. Likewise, any pointer must have 
been previously associated with a target. If an operand has thepoiNTER 
attribute, thetarget associated with it is theoperand. 

When an operand is a whole array reference, the complete array is 
referenced. An assumed-size array variable cannot bean operand. An 
array section of an assumed-size array can bean operand if the extent of 
the last dimension of the section is defined by the use of a subscript, a 
section subscript with an extent for the upper bound, or a vector 
subscript. (Assumed-size arrays are discussed in "Assumed-size arrays" 
on page 61, and array sections in "Array sections" on page 63.) 

If two operands in an expression are arrays, they must have the same 
shape. If oneoperand is a scalar, it istreated as if it werean array of the 
same shape as the other operand, in which all elements have the value of 
the scalar. The result of the operation is an array in which each element 
is the result of applying theoperator repeatedly to corresponding 
elements of the two operands. 

The rules governing how the use of operands in an expression vary, 
depending on the type of expression. For example, some operands that 
may appear on the right-hand side of an assignment statement but not 
in an initialization expression. See "Special forms of expression" on 
page 89 for detai led information about the different forms of an 
expression and the restrictions that those forms impose on operands. 

Operators 

HP Fortran recognizes the foil owing types of operators: 

• Arithmetic operators 

• Relational operators 

• Concatenation operator 

• Logical operators 

• Bitwise operators 

• Defined operators 

All of these except the last are intrinsic operators—that is, the 
operations they perform are defined by H P Fortran. I ntrinsic operators 
are described in the foil owing sections. Defined operators are those that 
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the programmer defines—or overloads, if the operator already has 
already been defined—using the interface statement. Defined 
operators and overloading arediscussed in "Defined operators” on 
page 155. 

Arithmetic operators 

The arithmetic operators are: 

• Additive operators (+ and -). These can be used either as unary 
operators or binary operators. 

• M ultiplicative operators (/, *, and **). These are binary. 

Two operands joined by a binary operator can be of different numeric 
types or different kind type parameters. The type of the result is: 

• I f the type and ki nd type parameters of the operands are the same, 
the result has the same type and kind type parameter. 

• If the type of the operands is the same but the kind type parameters 
differ, the result has the same type and the larger kind type 
parameter. 

• If either operand is of type complex, the result is of type complex. 

• I f either operand is of type real and the other operand is not of type 
complex, the result is of type real. 

Except for a value raised toan integer power, each operand that differs 
in type or kind type parameter from that of the result is converted to a 
value with the type and kind type of the result before the operation is 
performed. 

Logical and integer operands can be combined with arithmetic operators. 
The logical operand is treated as an integer of the same kind type 
parameter, and the result of the operation is of type i nteger. I f the 
operands have different kind type parameters, the shorter is considered 
to be extended as a signed integer. For information about logical values, 
see "Logical operators” on page 84. 
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The arithmetic operators behave as expected, with the following 
qualifications: 

• The division of an integer by an integer is defined to be the integer 
closest to the true result that is between zero and the true result. 

• Exponentiation of an integer to a negative integer— ii**i 2 , where 
i2 is negative—is interpreted as 1 / (ii** (-i2) ), wherethedivision 
is interpreted as described for division of one integer by another. 

• If xi and x2 are real and xi is negative, then xi**x2 could be an 
invalid expression, as the result could be complex. Note, however, 
that cmp lx (xi) * *x2 is valid; the result is the principal value. 

The following are H P extensions to the Fortran 90 Standard: 

• The exponentiation operator may be followed by a signed entity, as in 
the following example: 

i ** -j 

The Fortran 90 Standard does not allow adjacent operators. 

• Operands of logical and integer types may be combined with the 
arithmetic operators. The logical variable is treated as an integer of 
equivalent size, and the result of the operation is an integer value. 
When different lengths of operands are involved, the shorter is 
considered extended as a signed integer. Thefollowing is an example: 

LOGICAL(1) :: booleanl = -4 

LOGICAL(4) :: boolean4 = 2**16 + 27 

INTEGER(1) :: flagl 

INTEGER(4) :: flag4 

flag4 = boolean4 - booleanl !set flag4 to 2**16 + 31 

! a relational operator with a logical operand 
IF (boolean4 > 65536) THEN 

flagl = - (boolean4/65536) !set flagl to -1 

ENDIF 
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Relational operators 

The relational operators are . eq., .ne., . gt., . ge., . lt., . le., ==, / 
=, >, >=, <, and <=. All relational operators are binary. The letter forms 
of the relational operators have the same meaning as the symbol forms. 
Thus, .eq. is a synonym for ==, .ne. is a synonym for/=, and soon. 

If the operands in a relational operation are numerical expressions with 
different type or kind type parameters, the operands are converted to the 
type and kind type parameters that the sum of the operands would have 
and are then compared; see "Arithmetic operators" on page 82 for 
information about the result of mixed arithmetic expressions. 

If the operands are character expressions, the shorter operand is blank- 
padded to the length of the other prior to the comparison. The 
comparison starts at the first character and proceeds until a character 
differs or equality is confirmed. See Appendix C for the collating 
sequence. 

Concatenation operator 

The concatenation operator is //. It is binary. 

I n a concatenation operation, each operand of the concatenation operator 
must be of type character and have the same kind type parameter. The 
character length parameter of the result is the sum of the character 
length parameters of the operands. 

Logical operators 

Thelogical operator are .and., .or., .eqv., .neqv., ,xoR.,and 
. not .. The . not . operator is unary; the others are bi nary. The . xor . is 
an HP extension having the same meaning as the .neqv. operator. 

As an HP extension, the operands of a logical expression may be of type 
integer. Functions returning integers may appear in logical expressions, 
and functions returning logicals may appear in integer expressions. 

If the operands of a logical operation have different kind type 
parameters, the operand with the smaller parameter is converted to a 
value with the larger parameter before the operation is performed. The 
result has the larger kind type parameter. 

Table 10 shows the behavior of the logical operators for the different 
permutations of operand values. Notethat the .xor. operator is a 
synonym for the .neqv. operator and behaves similarly. 
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Table 10 Logical operators 


opndl 

opnd2 

AND. 

.OR. 

. EQV. 

.NEQV. 

.not. opndl 

.TRUE. 

.TRUE. 

.TRUE. 

.TRUE. 

.TRUE. 

. FALSE . 

. FALSE . 

.TRUE. 

. FALSE . 

. FALSE . 

.TRUE. 

. FALSE . 

.TRUE. 

. FALSE . 

. FALSE . 

.TRUE. 

. FALSE . 

.TRUE. 

. FALSE . 

.TRUE. 

.TRUE. 

. FALSE . 

. FALSE . 

. FALSE . 

.FALSE. 

.TRUE. 

. FALSE . 

.TRUE. 


Bitwise operators 

As an extension to the Standard, HP Fortran allows logical operators to 
be used as bitwise operators on integer operands. The logical operations 
are bitwise; that is, they are performed for each bit of the binary 
representations of the integers. When the operands are of different 
lengths, the shorter is considered to be extended to the length of the 
other operand as if it were a signed integer, and the result has the length 
of the longer operand. 

When logical operators are used on integer operands, any nonzero value 
is considered . true., and a zero value is considered .false. . 

I n general, an actual argument of type integer may not be used in a 
reference toa procedure when the corresponding dummy argument is of 
type logical, nor may an actual argument of type logical be used when 
the dummy argument is of type integer. As an H P extension, logical and 
integer arguments may be used interchangeably in calls to bit 
manipulation intrinsics. See Chapter 11, "I ntrinsic procedures," on 
page 475 for information about the bit manipulation intrinsics. 

Thefollowingexampleshowstheuseof the .and. operator to perform a 
bitwise and operation: 

INTEGER i, j 

i = 5 
j = 3 

PRINT *, i .AND. j 

! Output from the PRINT statement: 1 

The next example shows the use of logical operators to perform bit- 
masking operations. 
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INTEGER(2) mask2 
INTEGER(4) mask4 
DATA mask2/ -4 / 

DATA mask4/Z"ccc2"/ 

mask4 = mask.4 .NEQV. mask2 ! set mask4 to Z"ffff 333e" 

mask2 = .NOT. mask4 !set mask2 to Z"cccl" 

The next example makes a standard-conforming reference to a bit 
manipulation intrinsic: 

INTEGER :: mask = 65535 
LOGICAL :: is_even = .FALSE. 

IF (IAND(mask,1) /= 0) is_even = .TRUE. 

HP Fortran allows the foil owing nonstandard version of the preceding 
example: 

LOGICAL :: mask = z"ffff" 

INTEGER :: is_even = .FALSE. 

IF (IAND(mask,1)) is_even = .TRUE. 

Operator precedence 

When an expression expands to 

operandl operatorl operand2 operator2 operand3 ... 

each operator is assigned a precedence. The defined order of evaluation is 
that any subexpressions containing an operator with higher precedence 
than the adjacent operators is evaluated first. Where operators are of 
equal precedence, evaluation is from left to right. The exception to this 
rule is the exponentiation operator (**), which is evaluated from right to 
left. 

Any expression or subexpression may be enclosed in parentheses. These 
expressions are always evaluated first, using the rules explained above. 
This usage of parentheses is therefore equivalent to normal 
mathematical usage. 

Table 11 lists the precedence of the operators, and Table 12 gives 
example expressions that illustrate operator precedence. 
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Table 11 


Table 12 


Expression 

How evaluated 

Explanation 

a+b*c 

a + (b*c) 

* has a higher precedence 
than +. 

a/b*c 

(a/b)*c 

/ and * have the same 
precedence, and evaluation 
is left to right. 

a **b** c 

a**(b**c) 

** evaluates right to left. 

a.AND.b.AND 

. c . OR. d 

((a.AND.b).AND.c) 

.OR.d) 

Logical operators evaluate 
left to right. 


Operator precedence 


Precedence 

Operators 

Highest 

Lowest 

User defined unary operators 

* * 

* / 

Unary+ Unary- 

+ - 

// 

.EQ. .NE. .LT. .LE. .GT. .GE. 

== /=<<=> >= 

• NOT. 

.AND . 

• OR. 

.EQV. .NEQV. .XOR. 

User-defined binary operators 


Examples of operator precedence 
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The Standard allows the compiler to generate code that evaluates an 
expression by any sequence that produces a result mathematically 
equivalent to the sequence implied by thestatement. This laxity permits 
code optimization, including (for example) the reordering of expressions 
and the promotion of common subexpressions. 

Because the order of evaluation is not defined by the Standard, a 
function reference within an expression may not modify any of the other 
operands within the same expression. For example, fun (x) +x is 
indeterminate if the reference to fun modifies the value of the argument 

X. 


88 


Chapters 




Expressions and assignment 

Expressions 


Special forms of expression 

Certain language constructs allow only restricted forms of expressions. 
For example, the value specified for a named constant in a parameter 
statement may be defined by an expression, but it must be possibleto 
evaluate the expression at compile-time. This means that theexpression 
must not contain any operands that depend on program execution for 
their value. To take another example, a bound of a dummy array 
argument may be specified as an expression, but it must be possibleto 
evaluate this expression on entry to the subprogram. 

There are special restrictions imposed on operands and operators that 
may appear in an expression, depending on whether the expression is 
one of the following: 

• Constant expressions 

• I nitialization expressions 

• Specification expressions 

The foil owing sections describe the special forms of expression. 

Constant expressions 

A constant expression is either a constant or an expression containing 
only intrinsic operators and constant operands. This restriction also 
applies to any clearly defined part of a constant—for example, a 
substring with constant start and end points, or an array or structure 
constructor. A constant expression may include references to intrinsic 
functions that can be evaluated at compile-time. A constant expression 
may appear in any context in which any expression may appear. 
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The following are examples of constant expressions: 


123 

! an integer literal 

"Hello " // " World" 

! a character constant expression 

3.0_single 

! a real literal constant where single is 
! a named integer constant 

coord(0.0,infinity) 

! a structure constructor in which 
! "infinity" is a named constant 

(/ SQRT (x) , x, x*x /) 

! an array constructor in which x is a 
! named real constant 

x*x + 2*x*y + y*y 

! a constant numeric expression where x 
! and y are named constants 

SUM(iterations,DIM=1) 

! reference to a transformational 
! intrinsic where iterations is an 
! array-valued named constant 

SHAPE(matrix) 

! a reference to an inquiry intrinsic in 
! which "matrix" is an array with 
! constant bounds 


Initialization expressions 

An initialization expression is a more specialized form of constant 
expression that can appear as the initial value in a declaration 
statement. Initialization expressions have these additional restrictions: 

• Exponentiation is only allowed if the second operand is an integer. 

• Any subexpression within the expression must itself be an 
initialization expression. 

• All arguments to intrinsicfunction references must be initialization 
expressions. 

• Only thefollowing transformational intrinsic functions may be 
referenced: 

- REPEAT 

- RESHAPE 

- SELECTED_INT_KIND 

- SELECTED_REAL_KIND 

- TRANSFER 
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- TRIM 

• Any inquiry intrinsic that is referenced may interrogate a property of 
an entity (such as bounds or kind type parameter) only if the property 
is a constant. 

• Any elemental intrinsic functions must have integer or character 
arguments and an integer or character result. 

I nitialization expressions are required for the following: 

• Values of named constants. Any entity declared with the parameter 
attribute must be initialized with an initialization expression. 

• Kind parameter in a type specification statement. 

• The kind dummy argument of a type conversion intrinsic function. 

• Initial values in type declaration statements. 

• Expressions in structure constructors in data statements. 

• Case values in case statements. 

• Subscript expressions or substring ranges in equivalence 
statements. 

The following entities may not be initialized: 

• Dummy arguments 

• Function results 

• Al I ocatable arrays 

• Pointers 

• External names 

• I ntrinsic names 

• Automatic objects 
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The following areexamples of initialization expressions: 


-45 6 


an integer literal 


("Hello "// "World") 


a character constant expression 


pi * r ** 2 


a constant numeric expression, where 
pi and r are named constants 


ABS(i * j) ! reference to an elemental intrinsic, 

! where i and j are named integer 
! constants 


SELECTED_REAL_KIND(7) ! reference to a transformational 

intrinsic 


The following are illegal initialization expressions: 

x ** 2.5 ! the power operand is not an integer 

LOG (10.0) ! the intrinsic function is neither 

! integer nor character type 

SUM( (/ i, 2 /) ) ! reference to a prohibited function 

For information about initializing arrays with an array constructor, see 
"Array constructors" on page 71. 

Specification expressions 

A specification expression has a scalar value, is of type i nteger, and 
can be evaluated on entry to the scoping unit in which it appears. A 
specification expression may appear (for example) as a bound in an array 
declaration or as the length in a character type declaration. 

An operand in a specification expression is one of thefollowing: 

• A literal or named constant or part of a constants. 

• A variablethat is available by argument, host, or use association or is 
in common. 

• An array constructor or structure constructor where each element or 
component is also a specification expression or is a variable in an 
implied-DO loop appearing in the array constructor. 

• A dummy argument having neither the optional attribute nor the 

intent (out) attribute. 

• An argument to an intrinsic function. 
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• A referencetoan elemental intrinsicfunction that returns an integer 
result. 

• A reference to any of the following transformational intrinsic 
functions: 

- REPEAT 

- RESHAPE 

- SELECTED_INT_KIND 

- SELECTED_REAL_KIND 

- TRANSFER 

- TRIM 

• Any inquiry intrinsic except allocated, associated, and present. 
Other inquiry intrinsics may be referenced so long as the property 
interrogated is not defined by either a pointer assignment or 
allocate statement. Furthermore, an inquiry intrinsic may not 
interrogate the foil owing properties of an assumed size array: 

- U pper bound of the last dimension 

- Extent of the last dimension 

- Size of the array 

- Shape of the array 
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The differences between specification expressions and initialization 
expressions are summarized in Table 13. 


Table 13 Initialization and specification expressions 


Initialization expression 

Specification expression 

Can be either scalar or array-valued. 

M ust be scalar-valued. 

Can be of any type. 

M ust be of type i nteger. 

M ust be a constant expression. 

Can reference variables by host, argument, or 
use storage association; can reference 
variables in common. 

Except for allocated, associated, and 
present, can reference inquiry intrinsics 
to interrogate a property of an entity, 
provided that the property is constant. 

Can reference inquiry intrinsic functions, 
except for allocated, associated, and 
present. The arguments must be 
specification expressions or variables whose 
bounds or type parameters inquired about are 
not assumed, are not defined by the 
allocate statement, or are not defined by 
pointer assignment. 


The following areexamples of specification expressions: 


789 

MAX(m+n,0) 

LEN(c) 

SELECTED_INT_KIND(5) 


! an integer literal constant 

! m and n are integer dummy arguments 

! c is a character variable accessible via 
! host association 

! reference to a transformational 
! intrinsic 


UBOUND(arr,DIM=n) ! reference to an array inquiry 

! intrinsic in which arr is an array 
! accessible via USE and n is a 
! variable in common 
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Assignment 

An assignment operation defines a variable by giving it a value. I n 
HP Fortran, there are four types of assignment: 

• I ntrinsic assignment (also known as the assignment statement) 

• Pointer assignment 

• M asked-array assignment (also known as the where construct) 

• Defined assignment 

The following sections describe the first three assignment types. The 
last—defined assignment—is defined by the programmer, using the 
interface statement. For information about defined assignment, see 
"Defined assignment"on page 157. 

Assignment statement 

An assignment statement gives the value of an expression to a variable. 
It has thefollowing syntax: 

variable = expression 

variablemay beany nonpointer variableor a pointer variablethat is 
associated with a target. (If variableis a pointer, expression is assigned 
to the target.) The valid combinations of types for variable and 
expression are given in Table 14. The intrinsic functions that document 
the conversions are described in Chapter 11. 


Table 14 Conversion of variable^xpression 


Variable 

type 

Expression type 

Conversion 

1nteger 

1 nteger, real, or complex 

int (expression, kind (variable)) 

Real 

1 nteger, real, or complex 

real (expression, kind (variable)) 

Character 

Character (same kind 
parameters) 

cmplx (expression, kind (variable)) 
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Variable 

type 

Expression type 

Conversion 

Logical 

Logical 

Truncate expression if its length is greater 
than that of variable; otherwise, pad value 
assigned to variable, with blanks. 

Logical 

Logical 

logical (expression, kind (variable)) 

Derived type 

Same derived type 

None 


As described in "Bitwiseoperators"on page 85, HP Fortran allows 
integer and logical operands to be used interchangeably, HP Fortran also 
allows logical expressions to be assigned to integer variables and integer 
expressions to logical variables. As shown in Table 14, a logical 
expression may also be assigned to real or complex variables, and 
similarly, a real or complex expression may be assigned to a logical 
variable. 

If variable is a scalar, expression must be scalar. If variable is an array or 
an array section, expression must be either an array-valued expression of 
the same shape or a scalar. If variable is an array or an array section, 
and expression is a scalar, the value of expression is assigned toall 
elements of variable. If variableand expression are both arrays, the 
assignment is carried out element by element with no implied ordering. 

The expression is evaluated completely before the assignment is started. 
For example, the foil owing code segment: 

CHARACTER (LEN=4) :: c 
c (1 : 4) = 'abed' 
c(2:4) = c(1:3) 

sets c (2 : 4) to "abc", not to "aaa", which might result from a left-to- 
right character-by-character assignment. 
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The following examples illustrate assignments of different data types: 

! declarations of the variables used in the assignment statements 
! to follow 
integer icnt 
type circle 
real radius 
real xreal y 
end type 

type (circle) circlel, circle2 
real area, pi 

logical boolx, booly, pixel(10,10) 
integer a(10,5) 

integer, dimension (10,10):: matrixl, matrix2 
character*3 initials 
character*10 surname 
character*20 name 

icnt = icnt + 1 ! integer assignment 

circlel = circle2 ! derived-type assignment 
area = pi * circle%radius**2 ! real assignment 

pixel(x,y) = boolx .AND. booly ! assigns a logical expression to 

! an element of the logical 
! array pixel 

a(:,l:2) = 0 ! first two columns of a are set to zero 

maxtrixl = maxtrix2 ! each element of maxtrix2 is assigned to 

! the corresponding element of maxtrixl 

name = initials // surname ! character assignment using the 

! concatenation operator 


Poi nter assi gn merit 

Pointer assignment establishes an association between a pointer and a 
target. Once the association is established, if the pointer is referenced on 
the left-hand side of an assignment statement, it is the target to which 
the assignment is made. And if the pointer is referenced in an 
expression, the target is taken as the operand in the expression. 

The syntax of a pointer assignment is: 

pointer-object => target-expression 

pointer-object 

is a variable with the pointer attribute. 
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target-expressi on 

is one of the foil owing: 

• A variable with the target or pointer attribute 

• A function reference or defined operation that 
returns a pointer result 

The type, kind, and rank of pointer-object and target-expression must be 
the same. If target-expression is an array, it cannot bean assumed-size 
array or an array section with a vector subscript. For information about 
assumed-size arrays, see "Assumed-size arrays” on page 61. For 
information about array sections with vector subscripts, see "Vector 
subscripts”on page65. 

If target-expression is a pointer already associated with a target, then 
pointer-object becomes associated with thetarget of target-expression. If 
target-expression is a pointer that is disassociated or undefined, then 
pointer-object inherits the disassociated or undefined status of target- 
expression. For information about pointer status, see "Pointer association 
status" on page 48. 

The following example, ptr_assign.f90, illustrates association of scalar 
and array poi nters with seal ar and array targets: 

ptr_assign.f90 

PROGRAM main 

INTEGER, POINTER :: pi, p2, p3 ( :) ! declare three pointers, p3 

! is a deferred-shape array 

INTEGER, TARGET :: tl = 99, t2(5) = (/ 1, 2, 3, 4, 5 /) 

! pi, p2 and p3 are currently undefined, 
pi => tl ! pi is associated with tl. 

PRINT *, 'contents of tl referenced through pi:', pi 

p2 => pi ! p2 is associated with tl. 

! pi remains associated with tl. 

PRINT *, 'contents of tl referenced through pi through p2:', p2 

pi => t2(l) ! pi is associated with t2(l). 

! p2 remains associated with tl. 

PRINT *, 'contents of t2(l) referenced through pi:', pi 

p3 => t2 ! p3 is associated with t2. 

PRINT *, & 

'contents of t2 referenced through the array pointer p3:', p3 

pi => p3(2) ! pi is associated with t2(2) . 

PRINT *, & 
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'contents of t2(2) referenced through p3 through pi:', pi 
NULLIFY(pi) ! pi is disassociated. 

IF (.NOT. ASSOCIATED(pi)) PRINT *, "pi is disassociated." 

p2 => pi ! Now p2 is also disassociated. 

IF (.NOT. ASSOCIATED(p2)) PRINT *, & 

"p2 is disassociated by pointer assignment." 

END PROGRAM main 

Here are the command lines to compile and execute the program, along 
with the output from a sample run: 

$ f90 ptr_assign.f90 
$ a.out 

contents of tl referenced through pi: 99 

contents of tl referenced through pi through p2: 99 

contents of t2(l) referenced through pi: 1 

contents of t2 referenced through the array pointer p3: 123 
4 5 

contents of t2(2) referenced through p3 through pi: 2 
pi is disassociated. 

p2 is disassociated by pointer assignment. 

Masked array assignment 

In a masked array assignment, a logical expression—called a mask- 
controls the selection of array elements for assignment. Masked array 
assignment is implemented by the where statement and the where 
construct. The syntax of the where statement is: 

where (array-logical-expression) array = array-expression 

where array-logical-expression, array, and array-expression must all be 
conformable. The array-logical-e<pression (the mask) is evaluated for 
each element and the outcome (. true . or . false .) determines whether 
an assignment is made to the corresponding element of array. 

The syntax of the where construct is: 

where ( array-logical-expression ) 
array = array-expression 
[array = array-expression] ... 

[ELSEWHERE 

array = array-expression 
[array = expression] ... ] 

END WHERE 
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The where construct issimilartothewHERE statement, but moregeneral 
in that several array = array-expression statements can be controlled by 
one array-logical-expression. In addition, an optional elsewhere part of 
the construct assigns array elements whose corresponding array-logical- 
expression elements evaluate to .false.. 

When a where construct is executed, array-logical-expression is 
evaluated just once and therefore any subsequent assignment in a where 
block (the block following the where statement) or elsewhere block to 
an entity of array-logical-expression has no effect on the masking. 
Thereafter, successive assignments in the where block are evaluated in 
sequence as if they were specified i n a where statement, as fol lows: 

where (array-logical-expression) array = array-expression 

Each assignment in theELSEWHERE is executed as if it were: 

where (.not. array-logical-expression) array = array-expression 

For example, the fol I owing where construct: 

WHERE (a > b) 
a = b 
b = 0 
ELSEWHERE 
b = a 
a = 0 
END WHERE 

is evaluated as if it was specified as: 

mask = a > b 
WHERE (mask) a = b 
WHERE (mask) b = 0 
WHERE (.NOT.mask) b = a 
WHERE (.NOT.mask) a = 0 

Only assignment statements may appear in a where block or an 
elsewhere block. Within a where construct, only the where statement 
may be the target of a branch. 

The form of a where construct is similar to that of an if construct, but 
with this important difference: no more than one block of an if construct 
may be executed, but in a where construct at least one (and possibly 
both) of the where and elsewhere blocks will be executed. I n a where 
construct, this difference has the effect that results in a where block may 
feed into, and hence affect, variables in theELSEWHERE block. Notice, 
however, that results generated in an elsewhere block cannot feed back 
into variables in the where block. 
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The following example score2grade.f90 illustrates the use of a masked 
assignment to find the letter-grade equivalent for each test score in the 
array test_score. To do the same operation without the benefit of 
masked array assignment would require a do loop iterating over the 
array either in an if-else-if construct or in a case construct, testing 
and assigning to each element at a time. 

score2grade.f90 

PROGRAM main 

! illustrates the use of the WHERE statement in masked array 
! assignment 

i 

! use an array constructor to initialize the array that holds 
! the numerical scores 

INTEGER, DIMENSION(10) :: test_score = & 

(/75,87,99,63,75,51,79,85,93,80/) 

! array to hold the equivalent letter grades (A, B, C, etc.) 
CHARACTER, DIMENSION(10) :: letter_grade 

! because the array arguments are declared in the procedure 
! as assumed-shape arrays, the procedure's interface must 
! be explicit 

i 

INTERFACE 

SUBROUTINE convert(num, letter) 

INTEGER :: num(:) 

CHARACTER :: letter (:) 

END SUBROUTINE convert 
END INTERFACE 

PRINT *, 'Numerical score:', test_score 
CALL convert(test_score, letter_grade) 

PRINT '(A,10A3)', ' Letter grade: ', letter_grade 

END PROGRAM main 

SUBROUTINE convert(num, letter) 

! declare the dummy arguments as assumed-shape arrays 
INTEGER :: num(:) 

CHARACTER :: letter (:) 

! use the WHERE statements to figure the letter grade 
! equivalents 


WHERE 

(num 

>= 90) 

letter = 

'A 

i 



WHERE 

(num 

>= 80 

.AND. num 

< 

90) 

letter = 

'B 

WHERE 

(num 

>= 70 

.AND. num 

< 

80) 

letter = 

'C 

WHERE 

(num 

>= 60 

.AND. num 

< 

70) 

letter = 

'D 

WHERE 

(num 

< 60) 

letter = ' 

' F' 





END SUBROUTINE convert 
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Here are the command lines to compile and execute the program, along 
with the output from a sample run: 

$ f90 score2grade.f90 
$ a.out 

Numerical score: 75 87 99 63 75 51 79 85 93 80 
Letter grade: CBADCFCBAB 


The next example is a subroutine that uses the where construct to 
replace each positive element of array a by its square root. The 
remaining elements calculate the complex square roots of their values, 
which are then stored in the corresponding elements of thecomplex 
array ca. I n the elsewhere part of the construct, the assignment to 
array a should not appear before the assignment to array ca; otherwise, 
all of ca wi 11 be set to zero. 

SUBROUTINE find_sqrt(a, ca) 

REAL : : a ( :) 

COMPLEX : : ca ( :) 


WHERE (a > 0.0) 
ca = CMPLX(0.0) 
a = SQRT(a) 
ELSEWHERE 

ca = SQRT(CMPLX(a)) 
a =0.0 
END WHERE 

END SUBROUTINE find_sqrt 
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The normal flow of execution in a Fortran 90 program is sequential. 
Statements execute in the order of their appearance in the program. 
However, you can alter this flow. Thefollowing topics, described in this 
chapter, descri be how to achieve this: 

• Control constructs and statement blocks 

• Flow control statements 

For a full description of each Fortran 90 control statement, see 
Chapter 10, "HP Fortran Statements.” For information about the where 
construct, see "M asked array assignment” on page 99. 
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Control constructs and statement blocks 

A control construct consists of a statement block whose execution logic is 
defined by one of the following control statements: 

• case statement 

• do statement 

• if statement 

A statement block is a sequence of statements delimited by a control 
statements and its corresponding terminal statement. A statement block 
consists of zero or more statements and can include nested control 
constructs. However, any nested construct must have its beginning and 
end within the same statement block. 

Although the Standard forbids transferring control into a statement 
block except by means of its control statement, H P Fortran allows it. The 
Standard does permit the transferring control out of a statement block. 
For example, thefollowing if construct contains a go to statement that 
legally transfers control to a label that is defined outside the if 
construct: 

IF (var > 1) THEN 
varl = 1 
ELSE 

GO TO 2 
END IF 

2 varl = var2 

The next logical if statement is nonstandard (but permitted by HP 
Fortran) because it would transfer control into the do construct: 

IF (.NOT.done) GO TO 4 ! nonstandard! 

DO i = 1, 100 
sum = b + c 
4 b = b + 1 
END DO 

Thefollowing sections describe the operations performed by thethree 
control constructs. 
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CASE construct 

The case construct selects (at most) one out of a number of statement 
blocks for execution. 

Syntax [construct-name :] select case ( case-expr ) 

[case ( case-selector ) [ construct-name ] 
statement-block ] 

[case default [construct-name] 
statement-block ] 
end select [ construct-name] 

Notes on syntax case-selector is one of the following: 

• case-value 

• low : 

• : high 

• low : high 

case-selectors must be mutually exclusive and must agree in type with 
case-expr. 

case-expr must evaluatetoa scalar value and must bean integer, logical, 
or character type. 

If construct-name is given in the select case statement, the same 
name may appear after any case statement within the construct, and 
must appear in the end case statement. The construct name cannot be 
used as a name for any other entity within the program unit. 

case constructs can be nested. Construct names can then be useful in 
avoiding confusion. 

Although the Standard forbids branching to any statement in a case 
construct other than the i nitial select case statement from outside 
the construct, H P Fortran allows it. The Standard allows branching to 
the end select statement from within the construct. 
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The execution sequence of the case construct is as follows: 

1 case-expr is evaluated. 

2 The resulting value is compared to each case-selector. 

3 If a match is found, the corresponding statement-block executes. 

4 If no match is found but a case default statement is present, its 
statement-bl ock executes. 

5 If no match is found and there is no case default statement, 
execution of the case construct terminates without any block 
executi ng. 

6 The normal flow of execution resumes with thefirst executable 
statement following the end select statement, unless a statement 
in statement-block transfers control. 

The following case construct prints an error message according to the 
value of ios_err: 

INTEGER :: ios_err 

SELECT CASE (ios_err) 

CASE (:900) 

PRINT *, "Unknown error" 

CASE (913) 

PRINT *, "Out of free space" 

CASE (963:971) 

PRINT *, "Format error" 

CASE (1100:) 

PRINT *, "ISAM error" 

CASE DEFAULT 

PRINT *, "Miscellaneous Error" 

END SELECT 
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Syntax 


do construct 

The do construct repeatedly executes a statement block. The syntax of 
the do statement provides two ways to specify the number of times the 
statement block executes: 

• By specifying a loop count. 

• By testing a logical expression as a condition for executing each 
iteration. 

You can also omit all control logic from the do statement, in effect 
creating an infinite loop. The following sections describe the three 
variations of the do construct. 

You can use the cycle and exit statements to alter the execution logic 
of the do construct. For information about these statements, see "Flow 
control statements” on page 112. 

Counter-control led do loop 

A counter-controlled do loop uses an index variable to determine the 
number of times the loop executes. 

[ construct-name : ] do index = init, limit [ , step ] 
statement-bl ock 
end do [ con struct-name ] 

HP Fortran also supports the older, FORTRAN 77-style syntax of the do 
loop: 

do label index = init, limit [ , step ] 
statement-sequence 
label terminal-statement 

A third form, combining elements of the other two, is also supported: 
[construct-name :] do label index = init, limit [, step] 
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Thefollowing execution steps apply toall three syntactic forms, except as 
noted: 

1 The loop becomes active, and index is set to init. 

2 The iteration count is determined by thefollowing expression: 
max ( int ( limit - init + step) / step, 0 ) 

step is optional, with thedefault value of 1. It may not be 0. 

Note that the iteration count is 0 if either of thefollowing conditions 
is true: 

• step (if present) is a positive number and init is greater than limit. 

• step is a negative number and init is less than limit. 

3 If the iteration count is 0, the construct becomes inactive and the 
normal flow of execution resumes with thefirst executable statement 
following the end do or terminal statement. 

4 statement-block executes. (I n the case of the old-style syntactic form, 
both statement-sequence and terminal-statement execute.) 

5 The iteration count is decremented by 1, and index is incremented by 
step, or by 1 if step is not specified. 

6 Goto Step 3. 

To ensure compatibility with older versions of Fortran, you can use the 
+onetrip compile-line option to ensure that, when a counter-controlled do 
loop is encountered during program execution, the body of the loop executes 
at least once. 

This example uses nested do loops to sort an array into ascending order: 

INTEGER :: scores(100) 

DO i = 1, 9 9 

DO j = i+1, 100 

IF (scores(i) > scores (j)) THEN 
temp = scores(i) 
scores (i) = scores (j) 
scores(j) = temp 
END IF 
END DO 
END DO 
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The following example uses theolder syntactic form. Note that, unlike 
the newer form, old-style nested do loops can sharethe same terminal 
statement: 

DO 10 i = 1, 99 

DO 10 j = if ij , 100 

if (scores(i) <= scores (j)) GO TO 10 
temp = scores(i) 
scores (i) = scores (j) 
scores(j) = temp 
10 CONTINUE 

Conditional do loop 

A conditional do loop uses the while syntax to test a logical expression 
as a condition for executing the next iteration. 

[ construct-name :] do while ( logical-expression ) 
statement-bl ock 
end do [ con struct-name ] 

Fortran 90 also supports theolder syntax of the do while loop: 

do label while ( logical-expression ) 
statement-sequence 
label terminal-statement 

1 The Ioop becomes acti ve. 

2 The logical-expression is evaluated. If the result of the evaluation is 
false, the loop becomes inactive, and the normal flow of execution 
resumes with the first executable statement following the end do 
statement, or in the old Do-loop syntax, the terminal statement. 

3 statement-block executes. (In the case of the old-style syntactic form, 
both statement-sequence and terminal-statement execute.) 

4 Goto Step 2. 


! Compute the number of years it takes to double the value of an 
! investment earning 4% interest per annum 
REAL :: money, invest, interest 
INTEGER :: years 

money = 1000 
invest = money 
interest = .04 
years = 0 

DO WHILE (money < 2*invest) ! doubled our money? 
years = years + 1 
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money = money + (interest * money) 

END DO 

PRINT *, "Years =", years 

Infinite do loop 

The do statement for the infinite do loop contains no loop control logic. It 
executes a statement block for an indefinite number of iterations, until it 
is terminated explicitly by a statement within the block; for example, a 
return or exit statement. 

[ construct-name : ] do 
statement-block 
end do [ con struct-name ] 

The execution sequence of an infinite do loop is as follows: 

1 The loop becomes active. 

2 statement-block executes. 

3 Goto Step 2. 

! Compute the average of input values; press 0 to exit 
INTEGER :: i, sum, n 

sum = 0 
n = 0 

average: DO 

PRINT *, 'Enter a new number or 0 to quit' 

READ *, i 
IF (i == 0) EXIT 
sum = sum + i 
n = n + 1 
END DO average 

PRINT *, 'The average is ', sum/n 
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if construct 

The if construct selects between alternate paths of execution. The 
executing path is determined by testing logical expressions. At most, one 
statement block within the if construct executes. 

[construct-name :] if (logical-expression].) then 
statement-bl ockl 

[else if (logical-expression2) then [construct-name] 
statement-bl ock2 ] 


[else [construct-name] 
statement-bl ock3] 

end if [construct-name] 

1 logical-expressionl is evaluated. If it is true, statement-bl ockl 
executes. 

2 If logical-expressionl evaluates to false and else if statements are 
present, the logical-expression for each else if statement is 
evaluated. The first expression to evaluate to true causes the 
associated statement-block to execute. 

3 If all expressions evaluate to false and theELSE statement is present, 
its statement-block executes. If theELSE statement is not present, no 
statement block within the construct executes. 

4 The normal flow of execution resumes with thefirst executable 
statement following the end if statement. 


! Compare two integer values 
IF ( numl < num2 ) THEN 

PRINT *, "numl is smaller than num2. 
ELSE IF ( numl > num2 ) THEN 

PRINT *, "numl is greater than num2. 

ELSE 


PRINT *, "The numbers are equal" 
END IF 
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Flow control statements alter the normal flow of program execution or 
the execution logic of a control construct. For example, the go to 
statement can be used to transfer control to another statement within a 
program unit, and the exit statement can terminate execution of a do 
construct. 

This section describes the operations performed by the foil owing flow 
control statements: 

• continue statement 

• cycle statement 

• exit statement 

• Assigned go to statement 

• Computed go to statement 

• Unconditional go to statement 

• Arithmetic if statement 

• Logical if statement 

• pause statement 

• stop statement 

For additional information about these statements, see Chapter 10, "HP 
Fortran Statements.” 
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continue statement 

The continue statement has no effect on program execution. It is 
generally used to mark a place for a statement label, especially when it 
occurs as the terminal statement of a FORTRAN 77-style do loop. 

CONTINUE 

No action occurs. 

! find the 50th triangular number 
triangular_num = 0 
DO 10 i = 1, 50 

triangular_num = triangular_num + i 
10 CONTINUE 

PRINT *, triangular_num 

cycle statement 

The cycle statement interrupts execution of the current iteration of a 
do loop. 

cycle [ do-construct-name ] 

1 Thecurrent iteration of the enclosing do loop terminates. Any 
statements following the cycle statement do not execute. 

2 If do-construct-nameis specified, theiteration count for the named do 
loop decrements. If do-construct-nameis not specified, the iteration 
count for the immediately enclosing do loop decrements. 

3 If the iteration count is nonzero, execution resumes at the start of the 
statement block in the named (or enclosing) do loop. If it is zero, the 
relevant do loop becomes inactive. 
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LOGICAL :: even 
INTEGER :: number 

loop: DO i = 1, 10 

PRINT *, "Enter an integer: " 
READ *, number 
IF (number == 0) THEN 

PRINT *, "Must be nonzero. 
CYCLE loop 
END IF 

even = (MOD(number, 2) == 0) 

IF (even) THEN 
PRINT *, "Even" 

ELSE 

PRINT *, "Odd" 

END IF 
END DO loop 


exit statement 

The exit statement terminates a do loop. If it specifies the name of a do 
loop within a nest of do loops, the exit statement terminates all loops by 
which it is enclosed, up to and including the named do loop. 

exit [ do-construct-name ] 

If do-con struct-name is specified, execution terminates for all do loops 
that are within range, up to and including the do loop with that name. If 
no name is specified, execution terminates for the immediately enclosing 
do loop. 

DO 

PRINT *, "Enter a nonzero integer: " 

READ *, number 
IF (number == 0) THEN 
PRINT *, "Bye" 

EXIT 
END IF 

even_odd = MOD(number, 2) 

IF (even_odd == 0) THEN 
PRINT *, "Even" 

ELSE 

PRINT *, "Odd" 

END IF 
END DO 
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Assigned go to statement 

The assigned go to statement transfers control to the statement whose 
statement label was assigned to an integer variable by an assign 
statement. 

go to integer-variable [ , ( label-list ) ] 

If label-list is present, then the label previously assigned to integer- 
variablemust be in the list. 

Control transfers to the executable statement at integer-variable 
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INTEGER int_label 

ASSIGN 20 TO int_label 

GOTO int_label 


20 . . . 


Computed go to statement 

The computed go to statement transfers control to one of several 
labeled statements, as determined by the value of an arithmetic 
expression. 

go to ( label-list ) [ , ] i nteger-expressi on 

1 integer-expression is evaluated. 

2 The resulting integer value (the index) specifies theordinal position 
of the label that is selected from label-list. 

3 Control transfers to the executable statement with the selected label. 
If the value of the index is less than 1 or greater than the number of 
labels in label-list, the computed go to statement has no effect, and 
control passes to the next executable statement in the program. 

DO 

PRINT *, "Enter a number 1-3: " 

READ *, k 

GO TO (20, 30, 40) k 

PRINT *, "Number out of range." 

EXIT 

20 i = 20 

GO TO 100 
30 i = 30 

GO TO 100 
40 i = 40 
100 print *, i 
END DO 
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Unconditional go to statement 

The unconditional go to statement transfers control to the statement 
with the specified label. 

go to label 

Control transfers to the statement at label. 

Older, "dusty-deck" Fortran programs often combinetheGO to statement 
with the logical if statement to form a kind of leap-frog logic, as in the 
following: 

IF ( numl /= num2) GO TO 10 

PRINT *, "numl and num2 are equal." 

GO TO 30 

10 IF ( numl > num2 ) GO TO 20 

PRINT *, "numl is smaller than num2." 

GO TO 30 

20 PRINT *, "numl is greater than num2." 

30 CONTINUE 

Arithmetic if statement 

The arithmetic if transfers control to one of three labeled statements, as 
determined by the value of an arithmetic expression. 

if ( arithmetic-expression ) labell, Iabel2, label3 

1 arithmetic-expression is evaluated. 

2 If the resulting valueis negative, control transfers to the statement at 
labell. 

3 If the resulting value is 0, control transfers to the statement at label 2. 

4 If the resulting valueis positive, control transfers to the statement at 
label 3. 

As shown in this example, two or more labels in the label list can be the 
same. 

i = MOD (total, 3) t 1 
IF ( i ) 10, 20, 10 
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Logical if statement 

The logical if statement executes a single statement, conditional upon 

the value of a logical expression. The statement it executes must not be: 

• A statement used to begin a construct 

• Any end statement 

• Any if statement 

if ( logical-expression ) executable-statement 

1 I ogi cal-expression is evaluated. 

2 If it evaluates to true, executable-statement executes. 

3 The normal flow of execution resumes with thefirst executable 
statement following the if statement. (If executable-statement is an 
unconditional go to statement, control resumes with the statement 
specified by the go to statement.) 

LOGICAL :: finished 


IF ( finished ) PRINT *, "Done." 

pause statement 

The pause statement causes a temporary break in program execution. 
pause [ pause-code ] 

where pause-codeis a character constant or a list of up to 5 digits. 

1 Execution of the program is suspended, and the following message is 
written to standard output: 

To resume execution, type 'go'. 

If pause-codeis specified, the following message is written: 

To resume execution, type ' go' . 
pause pause-code 


118 


Chapter6 



Execution control 

Flow control statements 


Example 


Syntax 


Execution logic 


Example 


2 The normal flow of execution resumes after the user types the word 
go followed by return. If the user enters anything other than go, 
program execution terminates. 

If thestandard input device is other than a terminal, the message is: 

To resume execution, execute a kill -15 pid 
command. 

pid is the unique process identification number of the suspended 
program. The kill command can be issued at any terminal at which the 
user is logged in. 

PAUSE 999 

stop statement 

The stop statement terminates program execution. 
stop [ stop-code ] 

where stop-code is a character constant, a named constant, or a list of up 
to 5 digits. 

Program terminates execution. If stop-code is specified, the foil owing is 
written to standard output: 

stop stop-code 

STOP "Program has stopped executing." 
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Program units and procedures 


This chapter describes the internal structure of each type of program 
unit, how it is used, and how information is communicated between 
program units and shared by them. This includes the following topics: 

• Terminology and concepts 

• Main program 

• External procedures 

• I nternal procedures 

• Statement functions 

• Arguments 

• P rocedu re i nterface 

• Modules 

• Block data program unit 

For detailed information about individual statements that can be used to 
build program units and procedures, see Chapter 10, "HP Fortran 
Statements." 
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Terminology and concepts 

The foil owing sections define the terms and explain the concepts that are 
mentioned throughout this chapter. 

Program units 

A program consists of the following program units: 

• M ain program unit 

• External procedure, which can be either a subroutine or a function 

• Module program unit 

• Block data program unit 

A complete executable program contains one (and only one) main 
program unit and zero or more other program units, each of which is 
separately compilable. A program unit is an ordered set of constructs, 
statements, comments, and include lines. The heading statement 
identifies the kind of program unit; it is optional in a main program unit 
only. An end statement marks the end of a program unit. 

The only executable program units are the main program and 
external procedures. Program execution begins with the first 
executable statement in the main program and ends (typically) with the 
last. During execution, if the main program references an external 
procedure, control passes to the procedure, which executes and returns 
control tothemain program. An executing procedure can also reference 
other procedures or even reference itself recursively. 

The main program unit is described in "M ain program” on page 125, and 
external procedures are described in "External procedures” on page 128. 

The nonexecutable program units are: 

• The module program unit, which contains data declarations, user- 
defined type definitions, procedure interfaces, common block 
declarations, namelist group declarations, and subprogram 
definitions used by other program units. Modules aredescribed in 
"Modules”on page 161. 
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• The block data program unit, which specifies initial values for 
variables in named common blocks. Block data program units are 
described in "Block data program unit"on page 169. 

Procedures 

A procedure is a subroutine or function that contains a sequence of 
statements and that may be invoked during program execution. 
Depending on where and how it is used, a procedure can be one of the 
following: 

• Intrinsic procedures are defined by the language and are available 
for use without any declaration or definition. I ntrinsic procedures 
implement common computations that are important to scientific and 
engineering applications, I ntrinsic procedures aredescribed in detail 
in Chapter 11, "I ntrinsic procedures,"on page475. 

• An external procedure is a separately compilable program unit 
whose name and any additional entry points have global scope. 
External procedures are described in "External procedures" on 
page 128. 

• An internal procedure has more limited accessibility than an 
external procedure. It can appear only within a main program unit or 
an external procedure and cannot be accessed outside of its hosting 
program unit. Internal procedures are described in "Internal 
procedures" on page 135. 

• A module procedure can be defined only within a module program 
unit and can be accessed only by use association. Module procedures 
are described in "Modules" on page 161. 

Scope 

All defined Fortran entities have a scope within which their properties 
are known. For example, a label used within a subprogram cannot be 
referenced directly from outside the subprogram; the subprogram is the 
scoping unit of the label. A variable declared within a subprogram has 
a scope that is the subprogram. A common block name can be used in any 
program unit, and it refers to the same entity—that is, the name has 
global scope. At the other extreme, the index variable used within an 
implied-DO loop in a data statement or array constructor has a scope 
consisting only of the implied-DO loop construct itself. 
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Association 

I f the concept of scope I i mits the accessi bi I ity of entiti es, then the concept 

of association permits different entities to become accessible to each 

other in the same or different scope. The different types of association 

are: 

• Argument association is the association that is established 
between actual arguments and dummy arguments during a 
procedure reference. For more information, see "Argument 
association"on page 139. 

• Host association applies to nested scoping units, wheretheouter 
scoping unit (for example, an external procedure) plays host to the 
inner scoping unit (for example, an internal procedure). Host 
association allows the host and its nested scoping units to share data. 
For information about internal procedures, see "I nternal procedures" 
on page 135. 

• Pointer association is the association between a pointer and its 
target that is established by a pointer assignment statement. For 
more information, see "Pointer association status" on page 48 and 
"Pointer assignment" on page 97. 

• Sequence association is the association that is established between 
dummy and actual arguments when they are arrays of different rank. 
For more information, see "Array dummy argument"on page 140. 

• Storage association is the association of different objects with the 
same storage area and is established by the equivalence and 
common statements. For more information about storage association, 
refer to the descri ptions of the equivalence and common statements 
in Chapter 10, "HP Fortran Statements." Derived-type objects that 
include the sequence statement in their definition can also be 
storage associated; see "Sequence derived type" on page 41. 

• Use association allows different program units access to module 
entities by means of the use statement. For more information about 
modules and the use statement, see "Modules”on page 161. 
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Main program 

A main program is a program unit. There must be exactly one main 
program in an executable program. Execution always begins with the 
main program. 

The main program can determine the overall design and structure of the 
complete program and often performs various computations by 
referencing procedures. A program may consist of the main program 
alone, in which case all the program logic is contained within it. 

A main program has theform: 

[program program-name] 

[specification-part] 

[executi on-part] 

[ i nternal -procedure-part] 

end [program [program-name] ] 

program-name 

i s the name of the program, program-name can appear on the 
end program statement only if it also appears on the program 
statement; the name must be the same in both places, 
sped fi cation-part 

is zeroor more of the statements listed in Table 15 as well as 
any of the foil owing: 

• T ype decl a rat i on statement 

• Derived-type definition 

• I nterface bl ock 

• Statement function 

• Cray-style pointer statement (H P extension) 

• Structure definition (HP extension) 

• Record declaration (HP extension) 
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Program units and procedures 

Main program 

executi on-part 

is zero or more of the statements or constructs listed in Table 16 
as well as any of the foil owing: 

• Assignment statement 

• Pointer assignment statement 

internal-procedure-part 
takes the form: 

CONTAINS 

[internal-procedure] .. . 

where internal-procedure is one or more internal procedures; 
see "I nternal procedures” on page 135, 


Specification statements 


ALLOCATABLE 

FORMAT 

POINTER 

COMMON 

IMPLICIT 

SAVE 

DATA 

INTRINSIC 

STATIC 

DIMENSION 

NAMELIST 

USE 

EQUIVALENCE 

OPTIONAL 

VIRTUAL 

EXTERNAL 

PARAMETER 

VOLATILE 
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Table 16 


Executable statements 


ACCEPT 

ELSE 

ON 

ALLOCATE 

ELSE IF 

OPEN 

ASSIGN 

ELSEWHERE 

PAUSE 

BACKSPACE 

ENCODE 

PRINT 

CALL 

END 

READ 

case construct 

ENDFILE 

REWIND 

CLOSE 

EXIT 

STOP 

CONTINUE 

FORMAT 

TYPE (I/O) 

CYCLE 

GO TO 

WHERE 

DEALLOCATE 

IF 

where construct 

DECODE 

if construct 

WRITE 

DO 

INQUIRE 


do construct 

NULLIFY 



The only required component of a main program unit is the end 
statement. Thefollowing isthereforea valid, compilable program: 

END 
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External procedures 

External procedures are implemented as either functions or subroutines. 
The major difference between the two is that a function subprogram 
returns a value and can therefore appear as an operand in an expression. 

The following sections describe both types of external procedures, 
including the following topics: 

• Procedure definition 

• P roced u re referen ce 

• Returning from a procedure call 

• Alternate entry points 

For detailed information about any of the statements associated with 
procedures (for example, subroutine and function), refer to Chapter 
10, "HP Fortran Statements.” 

Procedure definition 

The definition of an external procedure takes the form: 

external -procedure-statement 
[specification-part] 

[executi on-part] 

[internal-procedure-part] 
en d - exter n a I - p r oced u r e- sta temen t 

external-procedu re-statement 

takes one of the foil owing forms, depending on whether the 
procedure is a subroutine or function 

• [recursive] subroutine name & 

[ ([dummy-arg-list]) ] 

• [recurs ivE][type-spec] function name & 

([dummy-arg-list]) [result (result-name)] 

where name is the name of the procedure; type-spec is the type 
of the function's result value; and dummy-arg-list is a comma- 
separated list of dummy arguments, as described in 
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"Arguments” on page 139. The subroutine and function 
statements are fully described in Chapter 10, "HP Fortran 
Statements." 
sped fi cation-part 

is zero or more of the statements listed in Table 15 as well as the 
automatic statement, 
executi on-part 

is zero or more of the statements listed in Table 16 as well as the 
following statements: 

• entry statement 

• return statement 

internal-procedure-part 
takes the form: 

CONTAINS 

[internal-procedure] .. .internal-procedure 

is the definition of an internal procedure; see "Internal 
procedures" on page 135. 
en d-exter na I-proced u re-statement 

takes one of the following forms, depending on whether the 
procedure is a subroutine or function: 

• end [subroutine [subroutine-name]] 

• end [function [function-name] ] 
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Procedure reference 

A procedure reference—also known as a procedure cal I—occurs when a 
procedure name is specified in an executable statement, which causes 
the named procedure to execute. Thefollowing sections describe 
references to subroutines and functions, and recursive references—when 
a procedure directly or indirectly calls itself. 

Referencing a subroutine 

A reference to an external subroutine occurs in a call statement, which 
specifies either the subroutine name or one of its entry point names. The 
syntax of the call statement is: 

call subroutine-name [([actual-argument-list]) ] 
actual-argument-list 

is a comma-separated list of the actual arguments that takethe 
form: 

[keyword =] actual-argument 
keyword 

is the name of a dummy argument that appears in the 
subroutine statement. For more information about 
keyword, see "Keyword option" on page 144. 

actual-argument 
is one of: 

• Expression, including a variable name 

• Procedure name 

• Alternate return 

For detailed information about arguments, see 
"Arguments"on page 139. 

alternate-return 

is one of: 

• * label 

• & label 
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label must be a branch target in the same scoping unit as the 
call statement. The ampersand prefix (&) is an HP extension 
and is permitted in fixed source form only. For information 
about alternate returns, see "Returning from a procedure 
reference” on page 132. 

For information about referencing a subroutine that implements a 
defined assignment, see "Defined assignment" on page 157. 

Referencing a function 

An external function subprogram is referenced either by its name or by 
one of its entry point names. The syntax of a function reference is: 

name ([actual-argument-list]) 

where name is the function name or the name of one of its entry points 
(see "Alternate entry points” on page 133). actual-argument-list has the 
same as it does in a subroutine reference (see "Procedure reference" on 
page 130), except that it may not include an alternate return. 

For information about referencing a function that implements a defined 
operator, see "Defined operators" on page 155. 

Recursive reference 

A procedure that directly or indirectly invokes itself is recursive Such a 
procedure must have the word recursive added to the function or 
subroutine statement. 

If a function calls itself directly, both recursive and a result clause 
must be specified in the function statement, making its interface 
explicit. 

The foil owing is a recursive function: 

RECURSIVE FUNCTION factorial (n) RESULT(r) 

INTEGER :: n, r 
IF (n.ne.O) THEN 

r = n*factorial (n-1) 

ELSE 
r = 1 
ENDIF 

END FUNCTION factorial 

Both internal and external procedures can be recursive. 
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Returning from a procedure reference 

When the end statement of a subprogram is encountered, control returns 
to the cal ling program unit. The return statement can be used to the 
same effect at any point within a procedure. The syntax of the return 
statement is: 

return [alt-return-arg] 

where alt-return-arg is a scalar integer expression that evaluates to the 
position of one of an alternate-return argument in the subroutine 
argument list, alt-return-arg is not permitted with return statements 
appearing in functions. 

By default, when control returns from a subroutinecall, the next 
statement to execute is the fi rst executable statement fol lowi ng the call 
statement. However, by specifying alternate returns as actual arguments 
in the subroutine cal I, the programmer can return control toother 
statements. The alternate returns are labels prefixed with an asterisk 
(*). Each label is inserted in the list of actual arguments in the position 
that corresponds to a placeholder—a simple asterisk (*)—in the dummy 
argument list. For example, if the subroutine subr has thefollowing list 
of dummy arguments: 

SUBROUTINE subr (x, y, z, *, *) 

then the actual arguments must include two labels for alternate returns, 
as in thefollowing call: 

CALL subr (a, b, c, *10, *20) 

As a compatibility extension, H P Fortran allows the ampersand (&) as a 
prefix character instead of the asterisk, but only in fixed source form. 
Alternate returns cannot be optional, and the associated actual 
argument cannot have keywords. For detailed information about the 
syntax of the alternate return argument, refer to the descriptions of the 
call and return statements in Chapter 10, "HP Fortran Statements.” 

Thefollowing example, alt_return.f90, illustrates the alternate return 
mechanism. The referenced subroutine, subr, selects one of two 
alternate return arguments based on the value of the first argument, 

where_to. 

alt_return.f90 

PROGRAM main 

! illustrates alternate return arguments 
INTEGER :: por ! point of return 
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por = -1 ! interpreted by arithmetic IF 

CALL subr(por, *10, *15) ! executes first 

PRINT *, 'Default returning point' 
por = 0 

CALL subr(por, *10, *15) ! executes second 

GOTO 20 ! control should never reach here 

10 PRINT *, 'Line 10 in main' 
por = 1 

CALL subr(por, *10, *15) ! executes third 

GOTO 20 ! control should never reach here 

15 PRINT *, 'Line 15 in main' 

20 CONTINUE 

END PROGRAM main 


SUBROUTINE subr(where_to, *, *) 

! Argument list includes placeholders for two alternate returns; 
! the third argument, where_to, is used to select a return 
! argument 


INTEGER :: where_to 


25 

30 

35 


! use arithmetic IF to select a return 
IF (where_to) 25, 30, 35 ! labels to transfer 

PRINT *, 'Should never print' 

PRINT *, 'Line 25 in subr' 

RETURN ! default returning point 
PRINT *, 'Line 30 in subr' 

RETURN 1 ! select the first return argument 

PRINT *, 'Line 35 in subr' 

RETURN 2 ! select the second return argument 


control 


END SUBROUTINE subr 


Here are the command lines to compile and execute the program, along 
with the output from a sample run: 


$ 

$ 


f90 alt_return.f90 
a. out 

Line 25 in subr 
Default returning point 
Line 30 in subr 
Line 10 in main 
Line 35 in subr 
Line 15 in main 


Alternate entry points 

When a procedure is referenced, execution normally begins with the first 
executable statement in the procedure. Using the entry statement, 
however, the programmer can define alternate entry points into the 
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procedure and associate a name with each entry point. Each entry 
statement within a procedure defines a procedure entry, which can be 
referenced by name as a separate, additional procedure. 

The syntax for the entry statement is: 

entry entry-name ([dummy-arg-list]) [result (result-name)] 
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Internal procedures 

An internal procedure is similar to an external procedure except that: 

• It must be defined within a hosting program unit—a main, external, 
or module program unit—following the contains statement. 

• 11 can be referenced by the host only. 

• It can access other entities by host association within the host. 

• 11 cannot have an entry statement. 

• It cannot be passed as an argument. 

• It cannot contain an internal procedure. 

The syntax of an internal procedure definition is the same as for an 
external procedure (see "Procedure definition"on page 128), except that 
it has nointernal procedure part. The reference to an internal procedure 
is the same as for an external procedure; see "Procedure reference” on 
page 130. 

The following example, int_func.f90, declares and references an internal 
function. Note that both theexternal procedure and the internal 
procedure have an assumed-shape array as a dummy argument, which 
requires the procedure to have an explicit interface (see "Procedure 
interface" on page 151). External procedures must be declared in an 
interface block to make their interface explicit; the interface of internal 
procedures is explicit by default. 

int_func.f90 

PROGRAM main 

! declare and initialize an array to pass to an external 
! procedure 

REAL, DIMENSION(3) :: values = (/2.0, 5.0, 7.0/) 

! Because the dummy argument to print_avg is an assumed-shape 
! array (see the definition of print_avg below), the 
! procedure interface of print_avg must 
! be made explicit within the calling program unit. 

INTERFACE 

SUBROUTINE print_avg(x) 

REAL : : x (:) 

END SUBROUTINE print_avg 
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END INTERFACE 

CALL print_avg(values) 

END PROGRAM main 

! print_avg is an external subprogram 
SUBROUTINE print_avg(x) 

REAL :: x(:) ! an assumed-shape array 

! reference the internal function get_avg 
PRINT *, get_avg(x) 

CONTAINS ! start of internal procedure part 

REAL FUNCTION get_avg(a) ! get_avg is an internal procedure 
! The interface of an internal procedure is explicit within 
! the hosting unit, so this function may declare a as an 
! assumed-shape array. 

REAL a(:) ! an assumed-shape array 

! references to the SUM and SIZE intrinsics 
get_avg = SUM(a) / SIZE (a) 

END FUNCTION get_avg 

END SUBROUTINE print_avg 

Here are the command lines to compile and execute the program, along 
with the output from a sample run: 

$ f90 int_func.f90 
$ a.out 

4.66667 
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Statement functions 

If an evaluation of a function with a scalar valuecan be expressed in just 
one Fortran assignment statement, such a definition can be included in 
the specification part of a main program unit or subprogram. This 
definition is known as a statement function. It is local tothescopein 
which it is defined. The syntax is: 

function-name (dummy-argument-list) = scalar-expression 

All dummy arguments must be scalars. All entities used in scalar- 
expression must have been declared earlier in the specification part. A 
statement function can reference another statement function that has 
already been declared. The name cannot be passed as a procedure-name 
argument. A statement function has an explicit interface. 

The following example, stmt_func.f90, is the same as the one listed in 
"I nternal procedures” on page 135 except that it implements get_avg as 
a statement function rather than as an internal function. As noted in the 
comments to the program, the elements of the array x are passed to the 
statement function as separate arguments because dummy arguments of 
a statement function must be scalars. 

stmt_func.f90 

PROGRAM main 

! declare and initialize an array to pass to an external 
! procedure 

REAL, DIMENSION(3) :: values = (/2.0, 5.0, 7.0/) 

! Because the dummy argument to print_avg is an assumed-shape 
! array (see the definition of print_avg below), the 
! procedure interface of print_avg must be made 
! explicit within the calling program unit. 

INTERFACE 

SUBROUTINE print_avg(x) 

REAL : : x (:) 

END SUBROUTINE print_avg 
END INTERFACE 

CALL print_avg(values) 

END PROGRAM main 

! print_avg is an external subprogram 
SUBROUTINE print_avg(x) 

REAL :: x(:) ! an assumed-shape array 
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! Define the statement function get_avg. 

! Note that the dummy arguments must be scalar, so in order 
! to find the average of the elements of the array, we must 
! pass each element as a separate argument 
get_avg(xl, x2, x3) = (xl + x2 + x3) / 3 

! reference the statement function get_avg 
PRINT *, get_avg(x(1), x(2), x(3)) 

END SUBROUTINE print_avg 

Here are the command lines to compile and execute the program, along 
with the output from a sample run: 

$ f90 stmt_func.f90 
$ a.out 

4.66667 
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Arguments 

Arguments data to be passed during a procedure call. Arguments areof 
two sorts: dummy arguments and actual arguments. Dummy 
arguments are specified in the argument list in a procedure definition. 
They define the number, type, kind, and rank of the actual arguments. 
The actual arguments arethe arguments that appear in the procedure 
reference and are the actual entities to be used by the referenced 
procedure, even though they are known by the dummy argument names. 

This section covers the following topics related to arguments: 

• Argument association 

• Keyword option 

• Duplicated association 

• intent attribute 

• %ref and %val 

Argument association 

Argument association is the linkage of actual argument to dummy 
argument that initially occurs when a procedure having arguments is 
invoked. During the execution of the referenced procedure, the dummy 
arguments a re effectively aliases for the actual arguments. After control 
returns to the program unit making the reference, the dummy 
arguments and actual arguments are no longer associated, and the 
actual arguments may no longer dereferenced by the dummy argument 
names. 

The principle of argument association is positional: the first item in the 
list of actual arguments is associated with the first item in the list of 
dummy arguments, and soon with the remaining arguments in each list. 
However, the programmer can use the keyword option to override this 
positional correspondence; see "Keyword option” on page 144. 

Dummy and actual arguments must agree in kind, type, and rank. The 
corresponding dummy and actual arguments must both be scalars or 
both arrays; if they are both arrays, they must have the same 
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dimensionality. Likewise, if an actual argument is an expression or a 
reference to a function, it must match the type and ki nd of the dummy 
argument. 

The foil owing sections provide more detailed information about these 
types of dummy arguments: 

• Scalars 

• Arrays 

• Derived types 

• Pointers 

• Procedure names 

Scalar dummy argument 

If thedummy argument is a scalar, the corresponding actual argument 
must be a scalar or a scalar expression, of the same kind and type. If the 
dummy argument is a character variable and has assumed length, it 
inherits the length of the actual argument. Otherwise, the length of the 
actual argument must be at least that of thedummy argument, and only 
the characters within the range of thedummy argument can be accessed 
by the subprogram. Lengths may differ for default character types only. 

Array dummy argument 

If thedummy argument is an assumed-shape array, the corresponding 
actual argument must match in kind, type, and rank; the dummy 
argument takes its shape from the actual argument, resulting in an 
element-by-element association between the actual and dummy 
arguments. 

If thedummy argument is an explicit-shape or assumed-size array, the 
kind and type of the actual argument must match but the rank need not. 
The elements are sequence associated— that is, theactual and dummy 
arguments are each considered tobea linear sequence of elements in 
storage without regard to rank or shape, and corresponding elements in 
each sequence are associated with each other in array element order. 

A consequence of sequence association is that the overall size of the 
actual argument must be at least that of thedummy argument, and only 
elements within the overall size of thedummy argument can be accessed 
by referenced procedure. 
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For example, if an actual argument has this declaration: 

REAL a(0:3,0:2) 

and the corresponding dummy argument has this declaration: 

REAL d(2,3,2) 

then the correspondence between elements of the actual and dummy 
arguments is as follows: 

Dummy <=> Actual 


d(l, 1 , 1) <=> a (0,0) 
d(2,1, 1) <=> a (1,0) 
d(1,2,1) <=> a(2,0) 

d(2,3,2) <=> a(3,2) 

When an actual argument and the associated dummy argument are 
default character arrays, they may be of unequal character length. If this 
is the case, then the first character of the dummy and actual arguments 
are matched, and the successive characters—rather than array 
elements—are matched. 

The next example illustrates character sequence association. Assuming 
this declaration of the actual argument: 

CHARACTERS a (3,4) 

and this declaration of the corresponding dummy argument: 

CHARACTERS d(2,3) 

then the correspondence between elements of the actual and dummy 
arguments is as follows: 

Dummy <=> Actual 


d(1,1) <=> a(1,1)//a(2,1) 

d(2,1) <=> a(3,1)//a(1,2) 

d (2,3) <=> a (2,4) //a (3,4) 

An actual argument may be an array section, but associating an array 
section with any other but an assumed-shape dummy argument may 
cause a copy of the array section to be generated and is likely to result in 
a degradation in performance. 

For information about the different types of arrays, see "Array 
declarations"on page54. 


Chapter 7 


141 






Program units and procedures 

Arguments 


Derived-type dummy argument 

When passing a derived-type object, the corresponding dummy and 
actual arguments of derived types are assumed to be of the same derived 
type. Unless the interface of the referenced procedure is explicit within 
the program unit that makes the reference, the compiler does not 
perform any type-checking. It is the programmer's responsibility to 
ensure that the types of the dummy argument and the actual argument 
are the same, such as by doing either of the foil owing: 

• Replicating the definition of the derived type in both subprograms 

• Placing the definition in a module and making the definition 
available to both subprograms by use association 

For information about explicit interface, see "Procedure interface" on 
page 151. For information modules and use association, see "Modules" on 
page 161. 

Pointer dummy argument 

If the dummy argument has the pointer attribute, the actual argument 
must also have the pointer attribute. F urthermore, they must match in 
kind, type, and rank. If the dummy argument does not have the pointer 
attribute but the actual argument is a pointer, the argument association 
behaves as if the pointer actual argument were replaced by its target at 
the ti me of the procedure reference. 

Procedure dummy argument 

If a dummy argument is a procedure, the actual argument must be the 
name of an appropriate subprogram, and its name must have been 
declared as external in the calling unit or defined in an interface block 
(see "Procedure interface" on page 151). I nternal procedures, statement 
functions, and generic names may not be passed as actual arguments. 

If the actual argument is an intrinsic procedure, the appropriate specific 
name must be used in the reference. It must have the intrinsic 
attribute. 

The following example, intrinsic_arg.f90, declares the intrinsics qsin 
and qcos with the intrinsic attribute so that they can be passed as 
arguments to the user-defined subroutine caii_int_arg. Notethat the 
dummy argument, trig_func, is declared in the subroutine with the 
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external attribute to indicate that it is a dummy procedure. This 
declaration does not conflict with the declaration of the actual arguments 
in the main program unit because each occurs in different scoping units. 

intrinsic_arg.f90 

PROGRAM main 

! declare the intrinsics QSIN and QCOS with the INTRINSIC 
! attribute to allow them to be passed as arguments 
REAL(16), INTRINSIC :: QSIN, QCOS 

CALL call_int_arg(QSIN) 

CALL call_int_arg(QCOS) 

END PROGRAM main 

SUBROUTINE call_int_arg(trig_func) 

! trig_func is an intrinsic function—see the declarations 
! of the actual arguments in the main program. trig_func 
! is declared here as EXTERNAL to indicate that it is a 
! dummy procedure. 

REAL(16), EXTERNAL :: trig_func 
REAL(16), PARAMETER :: pi=3.1415926 
INTEGER :: i 

DO i = 0, 360, 45 

! Convert degrees to radians (i*pi/180) and call the 
! intrinsic procedure passed as trig_func. 

WRITE(6, 100) i," degrees ", trig_func(i*pi/180) 

END DO 

100 FORMAT (14, A9, F12.8) 

END SUBROUTINE call_int_arg 

Here are the command lines to compile and execute the program, along 
with the output from a sample run: 

$ f90 intrinsic_arg .f90 
$ a.out 


0 

degrees 

0 

.00 

000000 

45 

degrees 

0 

.70 

710675 

90 

degrees 

1 

.00 

000000 

135 

degrees 

0 

.70 

710686 

180 

degrees 

0 

.00 

000015 

225 

degrees 

-0 

.70 

710665 

270 

degrees 

-1 

.00 

000000 

315 

degrees 

-0 

.70 

710697 

360 

degrees 

-0 

.00 

000030 

0 

degrees 

1 

.00 

000000 

45 

degrees 

0 

.70 

710681 

90 

degrees 

0 

.00 

000008 

135 

degrees 

-0 

.70 

710670 

180 

degrees 

-1 

.00 

000000 

225 

degrees 

-0 

.70 

710691 

270 

degrees 

-0 

.00 

000023 


Chapter 7 


143 





Program units and procedures 

Arguments 


315 degrees 0.70710659 
360 degrees 1.00000000 

SeeChapter 10, "HP Fortran Statements,"for information about the 
external and intrinsic statements. I ntrinsic procedures are fully 
described in Chapter 11, "I ntrinsic procedures,"on page475. 

Keyword option 

The keyword option al lows the programmer to specify actual 
arguments in a procedure reference independently of the position of the 
dummy arguments. U si ng the keyword option, the programmer expl icitly 
pairs an actual argument with its dummy argument, as shown by the 
syntax: 

dummy-argument = actual-argument 

If the keyword option is used for an argument, it must be followed by 
other arguments with the keyword option. If all arguments in the 
argument list use the keyword option, the actual arguments may appear 
in any order. 

As an example of how to use the keyword option, consider the sum 
intrinsic function. As described in "SU M (ARRAY, Dl M, MASK)" on 
page 577, this intrinsic has three arguments: array, dim, and mask, in 
that order; dim and mask areoptional arguments. The following are 
therefore valid references to sum: 

SUM(a,2) 

SUM(a,mask=a.gt.0) 

SUM(dim=2,array=a) 

The following is an invalid reference—the mask keyword must be 
specified: 

SUM(a,dim=2,a.gt.0) ! ILLEGAL, mask keyword missing 
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Optional arguments 

An actual argument may be omitted from the argument list of a 
procedure reference if its corresponding dummy argument is optional. A 
dummy argument is optional if it is declared with the optional 
attribute and appears at the end of the argument list. The procedure 
reference may also omit trailing arguments with the optional 
attribute. Otherwise, keywords must be provided to maintain an 
identifiable correspondence (see "Keyword option" on page 144). Only 
procedures with an explicit interface may have optional arguments. 

The following example, optional_arg.f90, references an internal function 
that declares one of its dummy arguments with the optional attribute. 
(Internal functions have an explicit interface, making them eligible for 
optional arguments; see "I nternal procedures” on page 135.) The function 
uses the present intrinsic to test whether or not the optional argument 
is present. If the intrinsic returns .true, (an actual argument is 
associated with the optional dummy argument), thefunction returns the 
sum of the two arguments; otherwise, it returns the required argument 
incremented by 1. 

optional_arg.f90 

PROGRAM main 

! illustrates the optional argument feature 
INTEGER :: argl = 10, arg2 = 20 

PRINT *, add_or_inc(argl) ! omit optional argument 

PRINT *, add_or_inc(argl, arg2) 

CONTAINS ! internal procedure with explicit interface 
INTEGER FUNCTION add_or_inc(i1, i2) 

! return the sum of both arguments if the second argument 
! (declared as optional) is present; otherwise, return the 
! first argument incremented by 1 

INTEGER :: il 

INTEGER, OPTIONAL :: i2 ! optional argument 

! use PRESENT intrinsic to see if i2 has an actual 
! argument associated with it 
IF (PRESENT(i2)) THEN 

add_or_inc = il + i2 ! add both arguments 
ELSE 

add_or_inc = il + 1 ! increment required argument 

END IF 

END FUNCTION add_or_inc 
END PROGRAM main 
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Here are the command lines to compile and execute the program, along 
with the output from a sample run: 

$ f90 optional_arg.f90 
$ a.out 

11 

30 

For information about the syntax, rules and restrictions governing the 
optional statement and attribute, see "optional (statement and 
attribute)"on page 387. For information about the present intrinsicsee 
"PRESENT(A)"on page559. 

Duplicated association 

I f a procedure reference would cause a data object to be associated with 
two or moredummy arguments, the object must not be redefined within 
the referenced procedure. Consider the following example: 

PROGRAM p 

CALL s ( sl r sl ) 

CONTAINS 

SUBROUTINE s (c,d) 

c = 22.01 ! ILLEGAL definition of one of the dummy 

! arguments associated with data object a 


END SUBROUTINE 
END PROGRAM 

Both dummy arguments, c and d, are associated with the actual 
argument a. The procedure includes an assignment to c, the effect of 
which is to redefine a. This attempt to redefine a is invalid. This rule 
actual arguments that are overlapping sections of the same array. 

Similarly, if a data object is availabletoa procedure through both 
argument association and either use, host, or storage association, then 
the data object must be defined and referenced only through the dummy 
argument. 
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I n the following code, thedata object a is availabletothesubroutineas a 
consequence of argument association and host association. The direct 
reference to a in the subroutine is illegal. 

PROGRAM p 

CALL s (a,b) 

CONTAINS 

SUBROUTINE s (c,d) 

c = 22.01 ! valid definition of a through the dummy 

! argument 

d = 3.0*a ! direct reference to a is ILLEGAL 

END SUBROUTINE 
END PROGRAM 
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INTENT attribute 

To enable additional compile-time checking of arguments and to avoid 
possibly unwanted side effects, the intent attribute can be declared for 
each dummy argument, which may be specified as intent ( in) , 

INTENT(OUT) Or INTENT(INOUT) . 

The values that may be specified for the intent attribute have the 
following significance: 

• in is used if the argument is not to be modified within the 
subprogram. 

• out implies that the actual argument must not be used within the 
subprogram before it is assigned a value. 

• inout (the form in out is also permitted) implies that the actual 
argument must be defined on entry and is definable within the 
subprogram. 

See "intent (statement and attribute)" on page 358 for more 
information about the intent attribute. 

%VAL and %REF built-in functions 

By default, HP Fortran passes noncharacter arguments by reference. 

I nstead of passing the value of the actual argument to the referenced 
procedure, Fortran passes its address, with which the name of the 
dummy argument becomes associated—as explained in "Argument 
association "on page 139. When HP Fortran passes character arguments, 
it includes a hidden length parameter along with the address of the 
actual argument. 

However, it is possibletochangethe way arguments are passed by using 
the%VALand %ref built-in functions, which HP Fortran provides as 
extensions: 

• %VAL(arg) specifies that the value of arg—rather than its address— 
is to be passed to the referenced procedure, arg can be a constant 
variable, an array element, or a derived-type component. 
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• %REF(arg) specifies that the address of arg is to be passed to the 
referenced procedure. Because this is how HP Fortran normally 
passes all noncharacter arguments, %ref is useful only when arg is of 
type character. Theeffect of using %ref with a character argument is 
to suppress the hidden length parameter. 

These built-in functions are typically used to pass arguments from 
Fortran to a procedure written in another language, such as a C function. 
The following example illustrates this use. The program consists of a 
Fortran 90 main program unit and a C function. The main program calls 
theC function, passing 4 arguments: an integer constant, a real variable, 
a character variable, and an integer expression. The main program uses 
the built-in functions to change Fortran's argument-passing conventions 
to conform toC. C expects all arguments except the string—Fortran's 
character variable—to be passed by value. It expects the string to be 
passed by reference, without the hidden length parameter. 

pass_args.f90 

PROGRAM main 

REAL :: x = 3.4 

INTEGER :: il = 5, i2 = 7 

! C expects strings to be null-terminated, so use the 
! concatenation operator to append a null character. 

CHARACTER(LEN=5) :: str = "Hi!"//CHAR(0) 

! Pass 4 arguments—a constant, a variable, a character 
! variable, and an expression—to a function written in C. 

! Use HP Fortran's built-in functions to change the 
! argument-passing conventions to conform to C. 

CALL get_args(%VAL(20), %VAL(x), %REF(str), %VAL(il+i2)) 

END PROGRAM main 

get_args.c 

#include <stdio.h> 

/* accept 4 arguments from a Fortran 90 program, which are 
* passed as C expects them to be passed 
*/ 

void get_args(int il, float x, char *s, int i2) 

{ 

/* display argument values */ 


printf ("First 

argument: 

% i \ n ", 

il) 

print f("Second 

argument: 

% f \ n ", 

x) ; 

printf("Third 

argument: 

% s \ n " , 

s) ; 

printf ("Fourth 

argument: 

% i \ n " , 

42) 


} 

Here are the command lines to compile and link both files, and to execute 
the program, along with the output from a sample run: 
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$ cc -Aa -c get_args.c 
$ f90 pass_args.f90 get_args.o 
$ a.out 

First argument: 20 

Second argument: 3.400000 
Third argument: Hi! 

Fourth argument: 12 


For additional information about multi-language programming, refer to 
the H P Fortran Programmer's Guide. The built-in functions can also be 
used with the alias directive, wherethey have a slightly different 
syntax. 
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Procedure interface 

A procedure interface is the information specified in a procedure 
reference, including the name of the procedure, the arguments, and (if 
the procedure is a function) the result. If the interface is explicit, all of 
the characteristics of the arguments and the result—type, kind, 
attributes, and number—are defined within the scope of the reference. If 
the interface is implicit, the compiler may beableto make sufficient 
assumptions about the interface to permit the procedure reference. 

All procedure interfaces are implicit except for the following: 

• I ntrinsic procedure 

• I nternal procedure 

• Module procedure 

• Recursive function that specifies a result clause 

• External procedure whose interface is declared in an interface block 
An explicit interface is required when: 

• The procedure reference uses the keyword form of an actual 
argument. 

• The procedure has optional arguments. 

• Any dummy argument is an assumed-shape array or a pointer. 

• The result of a function is array-valued or a pointer. 

• The procedure is a character function, the length of which is 
determined dynamically. 

• The procedure reference is to a generic name. 

• The procedure reference implements a user-defined operator or 
assignment. 

• The procedure has the same name as an intrinsic procedure, but you 
want it to have precedence over the intrinsic; see "Availability of 
intrinsics" on page 476. 
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• You want the compiler to perform argument-checking at compile¬ 
time. 

The foil owing sections describe the interface block and its use for 
creating: 

• Generic procedures 

• Defined operators 

• Defined assignment 

I nterface blocks 

An interface block is used to provide an explicit interface for external 
procedures or to define a generic procedure. An interface block may 
appear in any program unit, except a block data program unit. It is 
specified in the specification part of the program unit. 

The syntax for an interface block is: 

interface [ generi c-sper] 

[ i interface-body] . . . 

[module procedure modul e-procedure-name-l ist] 

END INTERFACE 

generic-spec 

is one of: 

• generic-name 

• operator (operator) 

• ASSIGNMENT (=) 

If generic-spec is omitted, then theMODULE procedure 
statement must also be omitted, 
generic-name 

is the name of the generic procedure that is referenced 
in the subprogram containing the interface block. 

operator 

is a unary or binary operator—intrinsic or user- 
defi ned—of the form: 

.1 etterfletter]... . 
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interface-body 

is: 

fu ncti on-statement 
[sped fi cation-part] 
end-function-statement 
or 

subrouti ne-statement 
[ specification-part] 
end -su brou ti n e-statement 
mod u I e-proced u re-n a me-l i st 

is a comma-separated list of names of module procedures that 
have generic-spec as a generic interface. Each module-procedure 
name must be accessible either by use association or—if this 
interface block is in a module that defines the module 
procedure—by host association. 

If the module procedure statement is present, then generic- 
spec must also be present. 

The following example, procj nterface.f90, uses an interface block in the 
main program unit to provide an explicit interface for the function avg. 

proc_interface.f90 

! Define an external function avg with one assumed-shape dummy 
! argument. Note that the definition of the function must 
! lexically precede its declaration in the interface block. 

REAL FUNCTION avg(a) 

REAL a(:) 

avg = SUM(a)/SIZE(a) 

END FUNCTION avg 

PROGRAM main 

REAL,DIMENSION(3) :: x 

INTERFACE 

REAL FUNCTION avg(a) 

REAL, INTENT(IN) :: a(:) 

END FUNCTION avg 
END INTERFACE 
x=(/2.0, 4.0, 7.0/) 

PRINT *, avg(x) 

END PROGRAM main 

Here are the command lines to compile and execute the program, along 
with the output from a sample run: 

$ f90 proc_interface.f90 
$ a.out 

4.33333 
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Generic procedures 

The Fortran 90 concept of generic procedures extends the 
FORTRAN 77 concept of generic intrinsics to allow user-defined generic 
procedures. A procedure is generic if its name—a generic name—is 
associated with a set of specific procedures. Referencing the generic 
name allows actual arguments to differ in type, kind, and rank. The 
differences in the arguments determine which specific procedure is 
invoked. 

A generic procedure is defined in an interface block that specifies its 
name and the interfaces of the specific procedures; see "I nterface blocks” 
on page 152. The specific procedures within the interface block must all 
be subroutines or all functions. The interface for each procedure must 
differ from the others in one or more of the foil owing ways: 

• The number of dummy arguments must differ. 

• Arguments that occupy the same position in the dummy argument 
lists must differ in type, kind, or rank. 

• The name of a dummy argument must differ from the names of the 
other dummy arguments in the argument lists of the other 
procedures, or all dummy arguments with thesame name must differ 
in type, kind, or rank. 

There may be more than one interface block with thesame generic name, 
but the specific procedures whose interfaces appear in all such interface 
blocks must be distinguishable by the above criteria. 

The module procedure statement can be used to extend the list of 
specific procedures to include procedures that are otherwise accessible to 
the program unit containing the interface block. The module procedure 
statement specifies only the procedure names; the procedure interfaces 
arealready explicit. TheMODULE procedure statement may appear only 
in an interface block that has a generic specification. Furthermore, the 
interface block must be contained either in thesame module that 
contains the definitions of the named procedures or in a program unit in 
which the procedures are accessible through use association. 

Thefol lowi ng example assumes that two subroutines have been coded for 
solving linear equations: riineq for when the coefficients are real, and 
ziineq for when the coefficients are complex. A generic name, lineq, is 
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decl ared i n the interface statement, enabl i ng it to be used for 
referencing either of the specific procedures, depending on whether the 
arguments are real or complex: 

INTERFACE lineq 

SUBROUTINE rlineq(ra,rb,rx) 

REAL,DIMENSION(:,:) :: ra 

REAL,DIMENSION(:) :: rb,rx 

END SUBROUTINE rlineq 
SUBROUTINE zlineq(za,zb,zx) 

COMPLEX,DIMENSION(:,:) :: za 

COMPLEX,DIMENSION(:) :: zb,zx 

END SUBROUTINE zlineq 
END INTERFACE lineq 

Defined operators 

The operator clause can be used with the interface statement either 
to define a new user-defined operator or to extend—or overload—the 
behavior of an already defined or intrinsic operator. This second use is 
similar to defining a generic procedure (see "Generic procedures” on 
page 154). The re-defined operator becomes associated with a generic 
operator. 

When the operator clause is present in the interface statement, the 
specific procedures within the interface block must all be functions. The 
functions can implement the operator for operands of different types, 
kinds, and ranks. These functions are restricted to one or two mandatory 
arguments, depending on whether the defined operator is unary or 
binary. Thefunctions return the result of an expression of theform: 

[operand] operator operand 

Each dummy argument of thefunctions listed in the interface block must 
have the intent (in) attribute. If operator is intrinsic, each specified 
function must takethesame number of arguments as the intrinsic 
operator has operands. Furthermore, the arguments must be 
distinguishablefrom those normally associated with the intrinsic 
operation. However, argument keywords must not be used when the 
argument is specified as an operand to a defined operator. 

I f a user-defined operator is referenced by its generic name, the reference 
must resolve to a unique, specific function name. The selection of the 
function is accomplished by matching the number, type, kind, and rank 
of theoperand with the dummy argument lists of thefunctions specified 
in the interface block. As with generic name references (see "Generic 
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procedures” on page 154), exactly one procedure must match the 
properties of the operands, and the matching function is selected and 
invoked. 

The following program, def_op.f90, illustrates a defined operation. The 
operation, . inrect. , compares two derived-type operands. The one 
operand holds thex and y co-ordinates of a point on a graph, and the 
other holds the set of co-ordinates defining a rectangle. If the point is 
inside the rectangle, the operation evaluates to . true .. The module in 
which the operation is defined also contains the definitions of the types of 
the operands. 

As noted in the comments, when a module is defined in the same file as 
any use statements that reference the module, the definition must 
lexically precedetheusE statements. For information about modules and 
the use statement, see "M odules" on page 161. 

def_op.f90 

! Note that, if a module definition and any USE statements that 
! reference the definition are in the same file, then the 
! definition must lexically precede the USE statements. 

MODULE coord_op_def 

! Defines a logical operation for comparing two derived-type 
! operands, as well as the derived types 

! Define a derived type for the co-ordinates of a point 
! in a graph 
TYPE coord_pt 

INTEGER :: x, y 
END TYPE coord_pt 

! define a derived type for the co-ordinates of a rectangle 
TYPE rect_coords 

TYPE(coord_pt) :: pi, p2 

END TYPE rect_coords 

! Interface block to define the logical operator .inrect. 

! Evaluates to .TRUE, if the point operand lies inside 
! the rectangle operand 
INTERFACE OPERATOR (.inrect.) 

MODULE PROCEDURE cmp_coords 
END INTERFACE 

CONTAINS 

LOGICAL FUNCTION cmp_coords(pt, rect) 

! returns .TRUE, if pt is inside rect 

! arguments 

TYPE (coord_pt), INTENT (IN) :: pt 
TYPE (rect_coords), INTENT (IN) :: rect 
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cmp_coords = .FALSE. ! initialization 
IF (pt%x >= rect%pl%x .AND. pt%x < rect%p2%x & 

.AND. pt%y >= rect%pl%y .AND. pt%y < rect%p2%y) & 
cmp_coords = .TRUE. ! pt is inside rect 

END FUNCTION cmp_coords 
END MODULE coord_op_def 


PROGRAM main 

! make the defined operation and the derived-type definitions 
! of the operands accessible to this program unit 
USE coord_op_def 

! specify a value for the rectangle co-ordinates 
TYPE (rect_coords) :: rectangle = & 

rect_coords(coord_pt(3, 5), coord_pt(7, 10)) 

TYPE (coord_pt) :: point ! user will specify value for this 

PRINT *, 'Enter two co-ordinates (integers) in a graph:' 

READ *, point 

! perform defined operation 
IF (point .inrect. rectangle) THEN 

PRINT *, 'The point lies inside the rectangle.' 

ELSE 

PRINT *, 'The point lies outside the rectangle.' 

END IF 

END PROGRAM main 

Here are the command lines to compile and execute the program, along 
with the output from a sample run: 

$ f90 def_op.f90 
$ a.out 

Enter two co-ordinates (integers) in a graph: 

4, 8 

The point lies inside the rectangle. 

Defined assignment 

The assignment clause can be used with the interface statement to 
specify one or more subroutines that extend—or overload—the 
assignment operator. Each subroutine must have exactly two arguments. 
The first argument can have either the intent (out) or the 
intent (inout) attribute; the second argument must have the 
intent (in) attribute. Thefirst argument corresponds to the variable 
on the left-hand side of an assignment statement, and the second to the 
expression on the right-hand side. 

Similarly to generic names and defined operators, there can be more 
than one defined assignment, but each occurrence of the assignment 
statement must resol veto a unique, specific subroutine. The subroutine 
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whose dummy arguments match the left-hand and right-hand sides of 
the assignment statement in kind, type, and rank is selected and invoked 
from the list of subroutines specified in thedefined-assignment interface 
block. 

The following example, def_assign.f90, illustrates defined assignment. 
The assignment consists of performing an elementary statistical analysis 
of the data on the right-hand operand and storing the results in the left- 
hand operand. As noted in the comments, when a module is defined in 
the same file as any use statements that references the module, the 
definition must lexically precede the use statements. For information 
about modules and the use statement, see "Modules” on page 161. 

def_assign.f90 

! Note that, if a module definition and any USE statements that 
! reference the definition are in the same file, then the 
! definition must lexically precede the USE statements. 

MODULE def_assign_stats 

! Defines the derived-type operands and extends the assignment 
! operator to perform a statistical analysis of the data in 
! raw_data 

! input data 
TYPE raw_data 

REAL :: x(100) ! values to be averaged 
INTEGER :: n ! number of values assigned to x 

END TYPE raw_data 

! output data 
TYPE stats_data 

REAL :: sum, max, min, avg ! statistical results 
END TYPE stats_data 

! interface block to extend the assignment operator 
INTERFACE ASSIGNMENT (=) 

MODULE PROCEDURE do_stats 
END INTERFACE 

CONTAINS 

SUBROUTINE do_stats(lside, rside) 

! define the operations that are performed when 
! rside is assigned (=) to lside 

TYPE (raw_data), INTENT (IN) :: rside 
TYPE (stats_data), INTENT (OUT) :: lside 

! use a structure constructor for initialization 
lside = stats_data(0, 0, 9999999.9, 0) 

! find the sum, max, and min 
DO i = 1, rside%n 

lside%sum = lside%sum + rside%x(i) 


158 


Chapter7 






Program units and procedures 

Procedure interface 


IF (lside%max < rside%x(i)) lside%max = rside%x(i) 

IF (lside%min > rside%x(i)) lside%min = rside%x(i) 

END DO 

lside%avg = lside%sum / rside%n ! the average 
END SUBROUTINE do_stats 
END MODULE def_assign_stats 

PROGRAM main 

! Make the defined assignment and the definitions of the 
! derived-type operands in the assignment accessible to 
! this program unit 
USE def_assign_stats 

TYPE (raw_data) :: user_data ! right-hand side of 

! assignment 

TYPE (stats_data) :: user_stats ! left-hand side of assignment 

CALL get_data(user_data) ! collect user data 
user_stats = user_data ! defined assignment statement 

PRINT *, 'Maximum = ', user_stats%max 
PRINT *, 'Minimum = ', user_stats%min 
PRINT *, 'Sum = ', user_stats%sum 
PRINT *, 'Average = ', user_stats%avg 
END PROGRAM main 

SUBROUTINE get_data(data) 

! this subroutine stores user-input values and the number 
! of values stored in data 

! make the definition of raw_data accessible 
USE def_assign_stats 

TYPE (raw_data) :: data ! the argument 
REAL :: val 
INTEGER :: i 

! get user input 
DO i = 1, 100 

PRINT *, 'Enter a positive real (negative to quit):' 

READ *, val 

IF (val < 0.0) EXIT ! negative, so leave 
data%x(i) = val 

data%n = i ! count of values so far 
END DO 

END SUBROUTINE get_data 
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Here are the command lines to compile and execute the program, along 
with the output from a sample run: 

$ f90 def_assign.f90 
$ a.out 

Enter a positive real (negative to quit): 

25.5 

Enter a positive real (negative to quit): 

35.5 

Enter a positive real (negative to quit): 

45.5 

Enter a positive real (negative to quit): 

-1 

Maximum = 45.5 
Minimum = 25.5 
Sum = 106.5 
Average = 35.5 
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Modules 

A module is a nonexecutable program unit that contains—usually 
related—definitions and declarations that may be accessed by use 
association. Typically, modules are used for: 

• Defining and declaring derived types 

• Defining and declaring global data areas 

• Defining operators 

• Creating subprogram libraries 

The definitions within a module are made accessible toother program 
units through use association. The program unit that requires access 
to the module must have a use statement at the head of its specification 
part, and the statement must specify the name of the module. 

The following sections describe the module program unit and theusE 
statement. The last section gives an example program that uses a 
module. 

Compiling programs that contain modules requires care to ensure that each 
module is compiled before the program unit that uses it. For detailed 
information about compiling programs that contain modules, refer to the 
HP Fortran Programmer’s Guide. 

Module program unit 

The syntax of a module program unit is: 

module moduie-name 
[specification-part] 

[ modui e-procedure-part] 

end [module [ modui e-name] ] 

where: 

module-name 

is the name of the module. 
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sped fi cation-part 

is zero or more of the statements listed in Table 15 with the 
exception of the format statement. Also, specification-part 
must not contain statement function definitions or automatic 
objects. (Specifying the save attribute within a module is 
unnecessary in H P Fortran as entities declared within a module 
retain their values by default.) 

Each entity declared in specification-part and each of the 
procedure defined in module-procedure-part has either the 
public or private attribute. By default, all entities have the 
public attribute and are thereby accessible by use association. 
E ntities having the private attri bute are accessi ble from 
within the module only. 

The public and private attributes and statements are fully 
described in Chapter 10, "HP Fortran Statements.” 
mod u I e-proced u re-pa rt 
is: 

CONTAINS 

mod u I e-procedure [module-procedure. . . ] 
module-procedure 

is either a function or subroutine, module-procedure has the 
same structure as an external function or subroutine except 
that the END statement of module-procedure must include the 
SUBROUTI NE or FUNCTION keyword, as appropriate; for an 
external procedure this is optional. For information about 
external subroutines, see "External procedures”on page 128. 
Note the foil owing about module procedures: 

• They have an explicit interface within the using program 
unit. It is not necessary to create an interface block for a 
module procedure. 

• They can also contain internal procedures. 

• They can be passed as an actual argument. 
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The following may be contained in a module and be made accessible by 
use associ ation: 

• Declared variables 

• Named constants 

• Derived-type definitions 

• Procedure interfaces 

• Module procedures 

• Generic names 

• Namelist groups 

use statement 

TheusE statement provides access to module entities within the using 
program unit—that is, the program unit in which the statement is 
specified. The use statement specifies the name of the module that the 
program unit wants to access. The information in the specified module is 
made accessible to the program unit by use associ ation. The use 
statement must appear at the head of the specification part of a program 
unit. 

The use statement can take either of two forms: 

• use module-name[, rename-list] 

• use module-name, only : access-list 
where: 

rename-list 

is a comma separated list of: 
local-name => module-entity-name 
mod u I e-en ti ty-na me 

is the name of a module entity. 

I oca I-name 

is the name by which module-entity-name will be accessed 
within the using program unit. 
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access-1 i st 

is a comma-separated list of: 

[local-name =>] module-entity-name 
As shown in the syntax description, theusE statement provides a 
renaming feature that allows module entities to be renamed within a 
using program unit. The association between local-nameand module- 
entity-name is conceptually similar to argument association: the one 
name is an alias for the other, and the association between the two is in 
effect only within the using program unit. 

The renaming feature can be used to resolve name conflicts when more 
than one module contains an entity with the same name. Consider a 
program unit that has access by use association to two modules: 
mod_def si mod_def s2. The names of the entities in mod_def si are a, 
b, and c; and the names of the entities in mod_def s2 areb, c, and d. The 
following use statements will avoid name conflicts within the using 
program unit: 

USE mod_defsl 

USE mod_defs2, b => local_b, c => local_c 

The only clause provides an additional level of control over access to 
module entities. As described in "Module program unit" on page 161, the 
private and public attributes control access to module entities in all 
using program units. The only clause controls access within a specific 
program unit. 

For example, consider a module named mod_def s that contains the 
entities ent_x, ent_y, and ent_z. If a program unit contains the 
following use statement: 

USE mod_defs, ONLY : ent_x, entry += local_y 

it has access to ent_x and ent_y only. F urthermore, it must access 

ent_y by the name iocai_y. 

A program unit may have morethan oneusE statement specifying the 
same module: 

• If one of the use statements is without the only clause, then all 
module entities with the public attribute are accessible. 
Furthermore, all local-names from the rename-lists and access-lists 
are interpreted as a single concatenated rename-list. 

• If all of theusE statements have the only clause, all of the access- 
lists are interpreted as a single concatenated access-list. 
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For more information, see "use" on page 461. 

Program example 

The following example program consists of three files: 

• main.f 90 

• precision.f90 

• lin_eq_slv.f90 

The file main. f 90 is the driver that has access to entities i n two 
modules— precision and linear_equation_solver —by use 

association. The modules are the other two files. 

The purpose of precision is to communicate a kind type parameter to 
the other program units in the program, for the sake of precision 
portability. The second module— iinear_equation_soiver— contains 
three module procedures, the first of which, 
solve_linear_equations, uses the Other two; 
soive_iinear_equations is itself invoked by the main program. 

Stated algebraically, the equations that main, f 90 provides as input for 
solution are: 

2x + 3y + 4z = 20 

3x + 4y + 5z = 26 

4x + 5y - 6z = -4 


main.f90 

PROGRAM main 

! use the two modules defined in precision.f90 and 
! lin_eq_slv.f90 
USE precision 

USE 1inear_equation_solver 
IMPLICIT NONE 

! the matrix a contains the coefficients to solve; b holds 
! the constants on the right-hand side of the equation; 

! the solution goes in x 

REAL (adequate) :: a (3,3), b(3), x(3) 

INTEGER :: i, j 

! set by solve_linear_equations to indicate whether or not 
! a solution was possible 
LOGICAL :: error 

! initialize the matrix 
DO i = 1,3 
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DO j = 1,3 
a(i,j ) = i + j 
END DO 
END DO 

a(3,3 ) = -a(3,3) 

! initialize the vector of constants 
b = (/ 20, 26, -4 /) 

CALL solve_linear_equations (a, x, b, error) 

IF (error) THEN 

PRINT *, 'Cannot solve.' 

ELSE 

PRINT *, 'The solution:', x 
END IF 

END PROGRAM main 

precision.f90 

MODULE precision 

! The named constant adequate is a kind number of a real 
! representation with at least 10 digits of precision and 99 
! digits range that normally results in 64-bit arithmetic. 

! This constant ensures the same level of precision 
! regardless of whether the program 

! of whether the program is compiled on a 32-bit or 64-bit 
! single-precision machine. 

INTEGER, PARAMETER :: adequate = SELECTED_REAL_KIND(10,99) 

END MODULE precision 

Iin_eq_slv.f90 

MODULE linear_equation_solver 
USE precision 
IMPLICIT NONE 

PRIVATE adequate ! to avoid a "double definition" of adequate 
! in program units that also use precision 

! forbid outside access to these two module procedures 
PRIVATE :: factor, back_substitution 

CONTAINS ! module procedures defined here 
SUBROUTINE solve_linear_equations (a, x, b, error) 

! solve the system of linear equations ax = b; set error to 
! true if the extents of a, x, and b are incompatible or 
! a zero pivot is found 

REAL (adequate), DIMENSION (:, :), INTENT (IN) :: a 

REAL (adequate), DIMENSION (:), INTENT (OUT) :: x 
REAL (adequate), DIMENSION (:), INTENT (IN) :: b 
LOGICAL, INTENT (OUT) :: error 

REAL (adequate), DIMENSION (SIZE (b), SIZE (b) + 1) :: m 

INTEGER :: n 
n = SIZE (b) 

! check for compatible extents 

error = SIZE (a, DIM=1) /= n .OR. SIZE (a, DIM=2) /= n & 

.OR. SIZE(x).LT. n 


166 


Chapter7 







Program units and procedures 

Modules 


IF (error) THEN 
x = 0.0 
RETURN 
END IF 


! append the right-hand side of the equation to m 
m (1: n, 1: n) = a 
m (1:n, n+1) = b 

! factor m and perform forward substitution in the last 

! column of m 

CALL factor (m, error) 

IF (error) THEN 
x = 0.0 
RETURN 
END IF 

! perform back substitution to obtain the solution 
CALL back_substitution (m, x) 

END SUBROUTINE solve_linear_equations 

SUBROUTINE factor (m, error) 

! Factor m in place into a lower and upper triangular 
! matrix using partial pivoting 

! Set error to true if a pivot element is zero; Perform 
! forward substitution with the lower triangle on the 
! right-hand side m(:,n+l) 

REAL (adequate), DIMENSION (:, :), INTENT (INOUT) :: m 

LOGICAL, INTENT (OUT) :: error 
INTEGER, DIMENSION (1) :: max_loc 

REAL (adequate), DIMENSION (SIZE (m, DIM=2)) :: temp_row 

INTEGER :: n, k 

INTRINSIC MAXLOC, SIZE, SPREAD, ABS 


n = SIZE (m, DIM=1) 
triang_loop: DO k = 1, n 

max_loc = MAXLOC (ABS (m (k:n, k))) 
temp_row (k:n+l) = m (k, k:n+l) 
m (k, k:n+l) = m (k-l+max_loc(1), k:n+l) 
m (k-l+max_loc(1), k:n+l) = temp_row (k:n+l) 

IF (m (k, k) == 0) THEN 
error = .TRUE. 

EXIT triang_loop 
ELSE 

m (k, k:n+l) = m (k, k:n+l) / m (k, k) 
m (k+l:n, k+l:n+l) = m (k+l:n, k+l:n+l) - & 

SPREAD (m (k, k+l:n+l), 1, n-k) * & 

SPREAD (m (k+l:n, k), 2, n-k+1) 

END IF 

END DO triang_loop 
END SUBROUTINE factor 


SUBROUTINE back_substitution (m, x) 

! Perform back substitution on the upper triangle to compute 
! the solution 

REAL (adequate), DIMENSION (:, :), INTENT (IN) :: m 

REAL (adequate), DIMENSION (:), INTENT (OUT) :: x 
INTEGER :: n, k 
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INTRINSIC SIZE, SUM 

n = SIZE (m, DIM=1) 

DO k = n, 1, -1 

x (k) = m (k, n+1) - SUM (m (k, k+l:n) * x (k+l:n)) 

END DO 

END SUBROUTINE back_substitution 
END MODULE linear_equation_solver 

Here are the command lines to compile and execute the program, along 
with the output from a sample run: 

$ f90 precision.f90 lin_eq_slv.f90 main.f90 
$ a.out 

The solution: 1.0 2.0 3.0 

The order in which the files appear on the f 90 command line is 
significant: files that contain modules must decompiled before files 
containing the program units that use the modules. For more 
information about compiling programs that use modules, seethe 
HP Fortran Programmer's Guide 
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Block data program unit 

A block data program unit initializes data values in common blocks. The 
syntax of a block data program unit is: 

block data [ block-data-name] 

[specification-part] 

end [block data [block-data-name] ] 
block-data-name 

is the name of the block data program unit. Note that the name 
is optional. If omitted, no more than one unnamed block data 
program unit may appear in an executable program, 
sped fi cation-part 

iszeroor more of the foil owing: 

• T ype decl a rat i on statement 

• use statement 

• implicit statement 

• common statement 

• data statement 

• equivalence statement 

• Derived-type definition 

• The following attribute-specification statements: 

• DIMENSION 

• INTRINSIC 

• PARAMETER 

• POINTER 

• SAVE 

• TARGET 

If a use statement appears in a block data program unit, it makes only 
the named constants accessible to the program unit. 
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The block data program unit can initialize more than one common block. 
However, a common block can be initialized in only one block data 
program unit. It is not necessary to initialize every object within the 
common block, but the common block must be completely specified. 

As an extension, H P Fortran allows the initialization of objects in 
blank—or unnamed—common. Thefollowing example illustrates this 
extension: 

BLOCK DATA blank 

COMMON/ /aa(3),ab(5) ! an unnamed common block 

DATA aa/3*l.0/ 

DATA ab/1.0,2.0,3*4.0/ 

END BLOCK DATA blank 
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This chapter describes input/output and file handling as supported by 
HP Fortran. This includes the foil owing topics: 

• Records 

• Files 

• Connecting a file to a unit 

• File access methods 

• Nonadvancing I/O 

• I /O statements 

• Syntax of I/O statements 

• ASA carriage control 

• Example programs 
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Records 

The record is the basic unit of Fortran 90 I/O operations. It consists of 
either characters or binary values, depending upon whether the record is 
formatted or unformatted. The following sections describe both 
formatted and unformatted records, plus the special case of the end-of- 
file record. 

Note that nonadvancing I/O makes it possible to read and write partial 
records. For more information, see "Nonadvancing I/O” on page 187. 

Formatted records 

A formatted record consists of characters that have been edited during 
list-directed or namelist-directed I/O, or by a format specification during 
a data transfer. (For information about format specifications, see "Format 
specification" on page 207.) The length of a formatted record is measured 
in characters; there is no predefined maximum limit to the length of a 
formatted record. 

Unformatted records 

An unformatted record consists of binary values in machine- 
representable format. The length of an unformatted record is measured 
in bytes. U nformatted records cannot be processed by list-directed or 
namelist-directed I/O statements or by I/O statements that use format 
specifications to edit data. 

End-of-file record 

The end-of-fi I e record is a special case: it contains no data and isthelast 
record of a sequential file. The end-of-file record is written: 

• By the endf i le statement 

• When the file is closed—either explicitly by the close statement or 
implicitly when the program terminates—immediately following a 
write operation 

• When a backspace statement executes after a write operation, 
before the fi I e i s backspaced 
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If theend-of-file record is encountered during the execution of the read 
statement, the program execution will abort unless the read statement 
includes the end= specifier, the iostat= specifier, or both. For 
information about these specifiers, see the description of the read 
statement in Chapter 10, "HP Fortran statements,"on page241. 


Files 

A file is a collection of data, organized as a sequence of logical records. 
Records in a file must be either all formatted or all unformatted, except 
for the end-of-file record. 

The following sections descri be the two types of files, external files and 
internal files. 

External files 

An external file is stored on disk, magnetic tape, or some other 
peripheral device. External files can be accessed sequentially or directly 
as described in "File access methods" on page 178. 

Scratch files 

A scratch file is a special type of external file. It is an unnamed, 
temporary filethat exists only while it is open—that is, it exists no 
longer than the life of the program. HP Fortran uses the tempnam (3 s) 
system routineto name the scratch file. The name becomes unavailable 
through the filesystem immediately after it is created, and it cannot be 
seen by the Is (l) command and cannot be opened by any other process. 

To create a scratch file, you must include the status= ' scratch ' 
specifier in the open statement, as in the following: 

OPEN (25, STATUS='SCRATCH') 

I n all other respects, a scratch file behaves like other external files. For 
an example of a program that uses a scratch file, see "File access" on 
page 202. 
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Internal files 

An internal file is stored in a variable where it exists for the life of the 
variable. Its main use is to enable programs totransfer data internally 
between a machine representation and a character format, using edit 
descriptors to make the conversions. (For more information about edit 
descriptors, see "Edit descriptors” on page 208.) 

An internal file can be one of the following: 

• A character variable 

• A character array 

• A character array element 

• A character substring 

• An integer or real array (HP Fortran extension) 

• Any of the above that is either a field of a structureor a component of 
a derived type 

Note, however, that a section of a character array with a vector subscript 
cannot be used as an internal file. 

Accessing records in an internal file is analogous to accessing them in a 
formatted sequential file; see "Formatted I/O" on page 178. For an 
example program that uses an internal file, see "I nternal file" on 
page 198. 
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Connecting a file to a unit 

Before a program can perform any I/O operations on an external file, it 
must establish a logical connection between thefileand a unit number. 
Once the connection is established, the program can reference the file by 
specifying the associated unit number (a non negative integer 
expression). I n the following example, the open statement connects unit 
number 1 tothefilemy_data, allowingthe write statement towritethe 
values in total_acct and balance tOmy_data: 

OPEN (UNIT—1, FILE='my_data') 

WRITE (1, ' (F8.2) ') total_acct, balance 

The following sections describe three types of unit numbers: 

• Thosethat are explicitly connected by means of the open statement 

• Preconnected unit numbers 

• Automatically opened unit numbers 

Connecting to an external file 

Typically, theconnection between an external file and a unit number is 
established by the open statement. When the program is finished using 
the file, theconnection is terminated by the close statement. Once the 
connection is terminated, the unit number can be assigned to a different 
file by means of another open statement. Similarly, a file whose 
connection was broken by a close statement can be reconnected tothe 
same unit number or to a different unit number. 

A unit cannot be connected to more than one file at a time. 

The following code establishes a connection between unit 9 and the 
external file f irst_f He, which is to be by default opened for sequential 
access. When the program is finished with the file, the close statement 
terminates theconnection, making the unit number available for 
connection toother files. Following thecLOSE statement, the program 
connects unit 9 to a different external file, new_f ile: 

! connect unit 9 to first_file 
OPEN (9, FILE='first_file') 

! process file 
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! terminate connection 
CLOSE (9) 

! connect same unit number to new_file 
OPEN (9, FILE='new_file') 

! process file 

! terminate connection 
CLOSE (9) 

Performing I/O on internal files 

An internal file is not connected to a unit number and therefore does not 
require an open statement. It is referenced as a character variable. In 
the foil owing example, the write statement transfers the data from 
char_var tothe internal file int_file, using list-directed formatting. 
Because int_fiie is declared to be 80 characters long, it is assumed 
that the length of char_var will be no more than 80 characters. 

CHARACTER(LEN=80) :: int_file 

WRITE (FILE=int_file, FMT=*) char_var 

For information about internal files, see "I nternal files" on page 174. 

Preconnected unit numbers 

Unit numbers 5, 6, and 7 are preconnected; that is, they do not have to be 
explicitly opened and are connected to system-defined files, as follows: 

• U nit 5 is connected to standard input—by default, the keyboard of the 
machine on which the program is running. 

• U nit 6 is connected to standard output—by default, the terminal/ 
display of the machine on which the program is running. 

• U nit 7 is connected to standard error—by default, the terminal/ 
display of the machine on which the program is running. 

Each predefined logical unit is automatically opened when a Fortran 90 
program begins executing and remains open for the duration of the 
program. This means, for example, that standard output can be used by a 
print statement without prior execution of an open statement. 
Attempting to close a preconnected logical unit has no effect. 

A preconnected unit number can be reused with an open statement that 
assigns it to a new file. Once a preconnected unit number is connected to 
a new file, however, it cannot be reconnected to its original designation. 
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You can use the HP-UX input/output redirection (< and >) and piping (|) 
operators to redirect from standard input, standard output, or standard 
error to a file of your own choosing. 

Automatically opened unit numbers 

U nit numbers that have not been associated with a file by an open 
statement can be automatically opened using the read or write 
statement. When a file is automatically opened, a string is created of the 
form: 

ftnXX 

where XX is replaced by the unit number in the range 01 to 99. 

If you have made an environment variable assignment of the form 
ftnXX =path, thefile named in path is opened. Otherwise, thefile 
whose name is ftnXX is opened in the current directory. If the file does 
not exist, it is created. 

The following program 

PROGRAM Auto 

WRITE (11,'(A)') 'Hello, world!’ 

END 

writes the string 

Hello, world! 

tothefile ftnii. 

If this program is compiled to a. out and is run as follows (using /bin/ 
sh or /bin/ksh) 

ftnll=datafile 
export ftnll 
a. out 

the output string is written tothefiledatafile instead of ftnii. 

Automatically opened files are always opened as sequential files. Other 
characteristics of an automatically opened file, such as record length and 
format, are determined by the data transfer statement that creates the 
file. If the statement does not specify formatted, list-directed, or 
namelist-directed I/O, thefile is created as an unformatted file. 
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File access methods 

HP Fortran allows both sequential access and direct access. You specify 
the access method with the open statement when you connect the file to 
a unit number. Thefollowing example opens thefilenew_data for direct 
access: 

OPEN (40, ACCESS='DIRECT', RECL=128, FILE='new_data') 

If you do not specify an access method, the file is opened for sequential 
access. 

Thefollowing sections describe both sequential and direct methods. 

Sequential access 

Records in a file opened for sequential access can be accessed only in the 
order in which they were written tothefile. A sequential file may consist 
of either formatted or unformatted records. If the records are formatted, 
you can use list-directed, namelist-directed, and formatted I/O 
statements to operate on them. If the records are unformatted, you must 
use unformatted I/O statements only. The last record of a sequential file 
is the end-of-fiIe record. 

Thefollowing sections describe the types of I/O that can be used with 
sequential files, namely: 

• Formatted I/O 

• List-directed I/O 

• Namelist-directed I/O 

• Unformatted I/O 

Formatted I/O 

Formatted I/O uses format specifications to define the appearance of 
data input to or output from the program, producing ASCI I records that 
are formatted for display. (Format specifications aredescribed in detail 
in "Format specification" on page 207.) Data is transferred and 
converted, as necessary, between binary values and character format. 
You cannot perform formatted I/O on a file that has been connected for 
unformatted I/O; see "Unformatted I/O" on page 185. 
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Formatted I/O can be performed only by data transfer statements that 
include a format specification. The format specification can be defined in 
the statement itself or i n a format statement referenced by the 
statement. 

For an example of a program that accesses a formatted file, see "File 
access" on page 202. 

List-directed I/O 

List-directed I/O is similar to formatted I/O in that data undergoes a 
format conversion when it is transferred but without the use of a format 
specification to control formatting. Instead, data is formatted according 
to its datatype. List-directed I/O is typically used when reading from 
standard input and writing to standard output. 

List-directed I/O uses the asterisk (*) as a format identifier instead of a 
list of edit descriptors, as in thefollowing read statement, which reads 
three floating-point values from standard input: 

READ *, A, B, C 

List-directed I/O can be performed only on internal files and on 
formatted, sequential external files. It works identically for both file 
types. 

Input 

Input data for list-directed input consists of values separated byoneor 
more blanks, a slash, or a comma preceded or fol lowed by any number of 
blanks. (No values may follow the si ash.) An end-of-record also acts as a 
separator except within a character constant. Leading blanks in thefirst 
record read are not considered to be part of a value separator unless 
followed by a slash or comma. 

I nput values can be any of the values listed in Table 17. A blank is 
indicated by the symbol b. 
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Table 17 


Table 18 


Input values for list-directed I/O 


Value 

Meaning 

z 

A null value, indicated by two successive separators with 
zero or more intervening blanks (for example, ,b/). 

c 

A literal constant with no embedded blanks. It must be 
readable by an i, f, a, or l edit descriptor. Binary, octal, and 
hexadecimal data are illegal. 

r*c 

Equivalent to r (an integer) successive occurrences of c in the 
input record. For example, 5*0.0 is equivalent to o . o o . o 

0.0 0.0 0.0. 

r*z 

E qu i va 1 ent to r su ccessi ve occu r ren ces of z. 


Reading always starts at the beginning of a new record. Records are read 
until the list is satisfied, unless a slash in the input record is 
encountered. The effect of the slash is to terminate the read statement 
after the assignment of the previous value; any remaining data in the 
current record is ignored. 

Table 18 outlines the rules for the format of list-directed input data. 


Format of list-directed input data 


Data type 

1 nput format rules 

1nteger 

Conforms to the same rules as integer constants. 

Real and 

double 

precision 

Any valid form for real and double precision. 1 n 
addition, the exponent can be indicated by a signed 
integer constant (the Q, d, or e can be omitted), and 
the decimal point can be omitted for those values 
with no fractional part. 
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Data type 

1 nput format rules 

Complex and 

double 

complex 

Two integer, real, or double precision constants, 
separated by a comma and enclosed in parentheses. 
The first number is the real part of the complex or 
double complex number, and the second number is 
the imaginary part. Each of the numbers can be 
preceded or followed by blanks or the end of a record. 

Logical 

Consists of a field of characters, the first nonblank 
character of which must be a t for true or an f for 
false (excluding the optional leading decimal point). 

1 nteger constants may also appear. 

Character 

Same form as character constants. Delimiting with 
singleor doublequotation marks is needed only if the 
constant contains any separators; delimiters are 
discarded upon input. Character constants can be 
continued from one record to the next. The end-of- 
record does not cause a blank or any other character 
to become part of the constant. If the length of the 
character constant is greater than or equal to the 
length, len, of the list item, only the leftmost len 
characters of the constant are transferred. If the 
length of the constant is less than len, theconstant is 
left-justified in the list item with trailing blanks. 


Output 

The format of list-directed output isdetermined by the type and valueof 
the data in theoutput list and by the value of the delim= specifier in the 
open statement. For information about the delim= specifier, seethe 
description of theoPEN statement in Chapter 10, "HP Fortran 
statements," on page 241. 
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Table 19 


Table 19 summarizes the rules governing the display of each data type. 


Format of list-directed output data 


Data 

type 

Output format rules 

1nteger 

Output as an integer constant. 

Real and 

Double 

Precision 

Output with or without an exponent, depending on the 
magnitude. Also, output with field width and decimal 
places appropriate to maintain the precision of the data 
as closely as possible. 

Complex 

Output as two numeric values separated by commas and 
enclosed in parentheses. 

Logical 

If the value of the list element is . true ., then t is 
output. Otherwise, f is output. 

Character 

Output using theAlen format descriptor, where len is the 
length of the character expression (adjusted for 
doubling). If delim='none 1 (thedefault), nosingle (') or 
double (") quotation marks are doubled, and the records 
may not be suitable list-directed input. If the value 
specified by delim= is not 'none \ only the specified 
delimiter is doubled. Character strings are output 
without delimiters, making them also unsuitablefor list- 
directed input. 


With the exception of character values, all output values are preceded by 
exactly one blank. A blank character is also inserted at the start of each 
record to provide ASA carriage control if the file is to be printed; see 
"ASA carriage control" on page 197 for a description of this. For example, 
the foil owing statement: 

PRINT *, 'Hello, world!' 

outputs the line (where b indicates a blank): 

bHello,bworld! 

If the length of the values of the output items is greater than 79 
characters, the current record is written and a new record started. 

Slashes, as value separators, and null values are not output by list- 
directed write statements. 
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Namelist-directed I/O 

Namelist-directed I/O enables you totransfer a group of variables by 
referencing the name of the group, using the nml= specifier in the data 
transfer statement. The namelist statement specifies the variables in 
the group and gives the group a name. 

Like list-directed I/O, namelist-directed I/O does not use a format 
specification when formatting data but uses default formats, as 
determined by the data types. 

I n the following example, the namelist statement defines the group 
name_group, which consists of the variables i, j, and c. The read 
statement reads a record from the file connected to unit number 27 into 
name_group. The print statement then writes the data from the 
variables in name_group to standard output. (As an extension, HP 
Fortran allows this use of thepRiNT statement in namelist I/O.) 

INTEGER :: i, j 
CHARACTER(LEN=10) :: c 

NAMELIST /name_group/ i, j, c 

READ (UNIT=27,NML=name_group) 

PRINT name_group 

Each namelist-directed output record begins with a blank character to 
provide for ASA carriage control if the records are to be printed (see "ASA 
carriage control” on page 197). 

Namelist-directed I/O can be performed only on formatted, sequential 
external files. 

The following program illustrates namelist-directed I/O: 

PROGRAM namelist 

INTEGER, DIMENSION(4) :: ivar 

CHARACTER(LEN=3), DIMENSION(3,2) :: cvar 

LOGICAL :: lvar 

REAL :: rvar 

NAMELIST /nl/ ivar, cvar, lvar, rvar 
READ (*,nl) 

PRINT nl 

END PROGRAM namelist 

If the input data is: 

&nl 

ivar = 4,3,2,1 

lvar=toodles 

cvar=,, 'QRS 1 ,2 *,2 *'XXX' 

rvar=5.75E25, cvar(3,2)(1:2)='AB' 

/ 


Chapter 8 


183 




I/O and file handling 

File access methods 


then the output will be: 

b&NLblVAR =432 lbCVAR =’’, 'QRS', ' 

' ' , 'XXX', 'ABX'bLVAR = TbRVAR 

5.75000E+25b/ 

The foil owing sections describe the format of namelist-directed input and 
output. See "namelist" on page 373 for detailed information about the 
namelist statement. 

Input 

A namelist-directed input record takes the following form: 

1 An ampersand character (&) immediately followed by a namelist 
group name. The group name must have been previously defined by a 
namelist statement. 

As an extension, the dollar sign ($) can be substituted for the 
ampersand. 

2 A sequence of name-value pairs and value separators. A name-value 
pair consists of the name of a variable in the namelist group, the 
equals sign (=), and a value having the same format as for list- 
directed input (z, c, r*c, and r*). A name-value pair can appear in any 
order i n the sequence or can be omitted. 

A value separator may be one of the following: 

• Blanks 

• Tabs 

• Newlines 

• Any of the above with a single comma 

3 A terminating slash (/). As an extension, ($end) can be substituted 
for the slash. 

N ames of character type may be qual ified by substri ng range expressi ons 
and array names by subscript/array section expressions. If the name in a 
name-value pair is that of an array, the number of the values following 
the equals sign must be separated by value separators and must not 
exceed the number of elements in the array. If there are fewer values 
than elements, null values are supplied for the unfilled elements. 

Namelist-directed input values are formatted according to the same 
rules as for list-directed input data; seeTable 18. 
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Output 

The output record for namelist-directed I/O has the same form as the 
input record, but with these exceptions: 

• The namelist group name is always in uppercase. 

• Logical values are either t or f. 

• As in list-directed output, character values are output without 
delimiters by default, making them unsuitablefor namelist-directed 
input. However, you can usetheDELiM= specifier in the open 
statement to specify the single or double quotation mark as the 
delimiter to use for character constants. 

• Only character and complex values may be split between two records. 

Unformatted I/O 

U nformatted I/O does not perform format conversion on data it transfers. 

I nstead, data is kept in its internal, machine-representable format. You 
cannot perform unformatted I/O on files that have been connected for 
formatted I/O (see"Formatted l/0"on page 178). 

Unformatted I/O is more efficient than formatted, list-directed, or 
namelist-directed I/O because thetransfer occurs without the conversion 
overhead. However, because unformatted I/O transfers data in internal 
format, it is not portable. 

Direct access 

When performing I/O on a direct-access file, records can be read or 
written in any order. The records in a direct-access file are all of the same 
length. 

Reading and writing records is accomplished by read and write 
statements containing theREO specifier. Each record is identified by a 
record number that is a positive integer. For example, the first record is 
record number 1; the second, number 2; and soon. If rec= is not 
specified: 

• The read statement inputs from the current record, andthefile 
pointer moves to the next record. 

• The write statement outputs to the record at the position of the file 
pointer, and the file pointer is advanced tothe next record. 
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As an extension, H P Fortran allows sequential I/O statements to access a 
file connected for direct access. 

Once established, a record number of a specific record cannot be changed 
or deleted, although the record may be rewritten. A direct-access file 
does not contain an end-of-fiIe record as an integral part of thefile with a 
specific record number. Therefore, when accessing a file with a direct- 
access read or write statement, theEND= specifier is not valid and is not 
allowed. 

Direct-access files support both formatted and unformatted record types. 
Both formatted and unformatted I/O work exactly as they do for 
sequential files. However, you cannot perform list-directed, namelist- 
directed, or nonadvancing I/O on direct-access files. 

For an example program that uses direct access, see "File access” on 
page 202. 


186 


Chapter8 




I/O and file handling 

Nonadvancing I/O 


Nonadvancing I/O 

By default, a data transfer leaves the file positioned after the last record 
read or written. This type of I/O is called advancing. Fortran 90 also 
allows nonadvancing I/O, which positions thefile just after the last 
character read or written, without advancing to the next record. It is 
character-oriented and can be used only with external files opened for 
sequential access. It cannot be used with list-directed or namelist- 
directed I/O. 

To use nonadvancing I/O, you must specify ad vance ='no' in the read 
or write statement. The example program in "File access" on page 202 
uses nonadvancing I/O in thefirst write statement, which is reproduced 
here: 

WRITE (6, FMT='(A)', ADVANCE='NO') & 

' Enter number to insert in list: ' 

The effect of nonadvancing I/O on thewRUE statement is to suppress the 
newline character that is normally output at the end of a record. This is 
the desired effect in the example program: by using a nonadvancing 
write statement, the user input to the read statement stays on the 
same I i ne as the prompt. 

You can get the same effect with the newline ($) edit descriptor, an H P 
Fortran extension that also suppresses the carriage-return/linefeed 
sequence at the end of a record; see "Newline ($) edit descriptor” on 
page 211. 

For an example program that illustrates nonadvancing I/O in a read 
statement, see "Nonadvancing I/O” on page 199. For more information 
about nonadvancing I/O and the advance= specifier, seethe read and 
write statements in Chapter 10. 
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Table 20 


NOTE 


I/O statements 

H P Fortran supports three types of I/O statements: 

• Data transfer statements (seeTable 20) 

• File positioning statements (seeTable 21) 

• Auxi I i ary statements (see Tabl e 22) 

For detailed information about all I/O statements, refer to Chapter 10, 
"HP Fortran statements,”on page241. 

Data transfer statements 


Statement 

Use 

ACCEPT 

1 nputs data from the preconnected default input device 
(standard input) (extension). 

DECODE 

1 nputs data from an internal file (extension). 

ENCODE 

Outputs data to an internal file (extension). 

PRINT 

Outputs data to the preconnected default output device 
file (standard output) 

READ 

1 nputs data from a connected or automatically opened 
unit. 

TYPE 

Synonym for the print statement (extension). 

WRITE 

Outputs data to a connected or automatically opened 
unit. 


Although the decode and encode statements are available as compatibility 
extensions for use with internal files, they are nonportable and are provided 
for compatibility with older versions of Fortran. To keep your programs 
standard-conforming and portable, you should use the read and write 
statements with both external and internal files. 

accept and type are also available as compatibility extensions for reading 
from standard input and writing to standard output. However, if you wish your 
program to be portable, you should use the read and print statements 
instead of the accept and type statements. 
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Table 21 


Table 22 


File positioning statements 


Statement 

Use 

BACKSPACE 

Moves the file pointer of the connected sequential file to 
the start of the previous record. 

ENDFILE 

Writes an end-of-file record as the next record of the 
sequential file. 

REWIND 

Moves thefile pointer of the connected fileto the initial 
point of thefile. 


Auxiliary statements 


Statement 

Use 

CLOSE 

Disconnects a unit from a file. 

INQUIRE 

Requests information about a file or unit. 

OPEN 

Connects an existing fileto a unit, creates a file and 
connects it to a unit, or changes certain specifiers of a 
connection between a file and a unit. 
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Syntax of I/O statements 

The general syntactic form of file-positioning and auxiliary statements 
is: 

statement-name (iospecifier-l ist) 
where 

statement-name is one of the statements listed in Table 21 or Table 22. 

i o-speci fi er-l i st is a comma-separated list of I/O specifiers that control 
the statement's operation. 

The general form of a data-transfer statement is: 

statement-name (i o-speci fi er-l i st) data-list 

where 

statement-name is one of the statements listed in Table 20. 

i o-speci fi er-l ist is a comma-separated list of I/O specifiers that control 
the data transfer. 

data-list is a comma-separated list of data items. 

The following sections describe the I/O specifiers and the form of data- 
list. For detailed information about the syntax of individual I/O 
statements, see Chapter 10, "HP Fortran statements,"on page241. 

I/O specifiers 

I/O specifiers providel/O statements with additional information about a 
file or a data transfer operation. They can also be used (especially with 
the inquire statement) to return information about a file. Table23 lists 
all I/O specifiers supported by HP Fortran and identifies the statements 
in which each can appear. Note that theACCEPT, decode, encode, and 
type statements are not listed in the table as they are nonstandard. All 
I/O specifiers and statements are fully described in Chapter 10, "HP 
Fortran statements,"on page 241. Each I/O specifier is described under 
the I/O statement in which it may appear. 
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I/O Specifiers 

BACKSPACE 

CLOSE 

ENDFILE 

INQUIRE 

OPEN 

PRINT 

READ 

REWIND 

WRITE 

OPENED= 










PAD = 










POSITION= 










READ = 










READWRITE= 










REC= 










RECL= 










SEQUENTIAL^ 










SIZE = 










STATUS= 










UNFORMATTED= 










UNIT= 










WRITE= 











I/O data list 

The I/O data list can be used with any data transfer statement except 
namelist I/O; see "Namelist-directed I/O" on page 183 for a description of 
this. The general form of the I/O data list is: 

iteml[, item2. . . ] 

where item is a either a simple data element or an implied-DO loop. 

The following sections describe simple data elements and the implied-DO 
loop. 
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Simple data elements 

I n a read operation, the simple data element specifies a variable, which 
can include: 

• A scalar 

• An array 

• An array element or section 

• A character substring 

• A structure 

• A component of a structure 

• A record 

• A field of a record 

• A poi nter 

I n a write operation, thesimpledata element can indudeany variable 
that is valid for a read operation, plus most expressions. Notethat, if the 
expression includes a function reference, thefunction must not itself 
perform I/O. 

The output list in the foil owing print statement contains two simple list 
elements, a variable named radius and an expression formed from 

radius: 

99 FORMAT('Radius = ', F10.2, 'Area = ', F10.2) 

PRINT 99, radius, 3.14159*radius**2 

The next read statement contains three simple elements: a character 
substring (name (l : 10) ), a variable (id), and an array name (scores): 

88 FORMAT(A10,19,1015) 

READ(5, 88) name(1:10), id, scores 

If an array name is used as a simple data element in the I/O list of a 
write statement, then every element in the array will bedisplayed. If a 
format specification is also used, then the format will be reused if 
necessary to display every element. For example, the foil owing code 

INTEGER :: i (10) = (/1,2, 3,4, 5, 6, 7, 8, 9, 10 /) 

88 FORMAT(' N1:',I5, ' N2:',I5, ' N3:',I5) 

PRINT 88, i 
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will output the following: 


N1: 

1 N2 : 

2 N3 : 

3 

N1: 

4 N2 : 

5 N3 : 

6 

N1: 

7 N2 : 

8 N3: 

9 

Nt: 

10 N2 : 




The following restrictions apply to the use of arrays in input and output: 

• Sections of character arrays that specify vector-valued subscripts 
cannot be used as internal files. 

• An assumed-size array cannot dereferenced as a whole array in an 
input or output list. 

The foil owing restrictions apply to the use of structures and records in 
input and output: 

• All components of the structure or fields of the record must be 
accessible within the scoping unit that contains the data transfer 
statement. 

• Every component of the structure or field of the record is written. 

• A structure in an I/O list must not contain a pointer that is an 
ultimate component—that is, the last component in a variable 
reference. I n the expression a%b%c, a and b can be pointers, but not c. 

I mplied-DO loop 

An implied-DO loop consists of a list of data elements to be read, written, 
or initialized, and a set of indexing parameters. Thesyntax of an 
implied-DO loop in an I/O statement is: 

(list , index = init , limit (, step ]) 

where 

list 

is an I/O list, which can contain other implied-DO loops. 

index 

is an integer variable that controls the number of times 
the elements in list are read or written. The use of real 
variables is supported but obsolescent. 
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init 

is an expression that is the initial value assigned to 
index at thestart of the implied-DO loop. 

limit 

is an expression that is the termination value for index. 

step 

is an expression by which index is incremented or 
decremented after each execution of the do loop, step 
can be positive or negative. Its default value is 1. 

I nner loops can use the indexes of outer loops. 

The implied-DO loop acts like a do construct. The range of the implied-DO 
loop is the list of elements to be input or output. The implied-DO loop can 
transfer a list of data elements that are valid for a write operation, index 
is assigned the value of init at the start of the loop. Execution continues 
in the same manner as for do loops (see "do construct” on page 107). 

The implied-DO loop is generally used to transmit arrays and array 
elements, as in the following: 

INTEGER :: b(10) 

PRINT *, (b (i) , i = 1, 10) 

If b has been initialized with the values lthrough 10 in order, thePRiNT 
statement will produce the foil owing output: 

123456789 10 

If an nonsubscripted array name occurs in thelist, the entire array is 
transmitted at each iteration. For example: 

REAL :: x(3) 

PRINT *, (x, 1=1, 2) 

If x has been initialized to be [ 12 3 ], the output will be: 

1.0 2.0 3.0 1.0 2.0 3.0 

The list can contain expressions that use the index value. For example: 

REAL :: x(10) = (/. 1, .2, .3, .4, .5, .6, .7, .8, .9, 1 /) 

PRINT *, (i*2, x (i*2), i = 1, 5) 

print the numbers 

2.24.46.68.8101 
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I mplied-DO loops can also be nested. The form of a nested implied-DO 
loop in an I/O statement is: 

(((list, indexl = initl, limitl, stepl), index2 = init2, Iimit2, 
step2) ... indexN = initN, limitN, stepN) 

Nested implied-DO loops follow thesame rules as do other nested do 
loops. For example, given thefollowing statements: 

REAL : : a (2,2) 

a(1,1) = 1 
a (2,1) = 2 
a (1,2) = 3 
a (2,2) = 4 

WRITE (6, *) ( (a(i, j) , i=l,2) , j = l,2) 

the output will be: 

1.0 2.0 3.0 4.0 

The first, or nested do loop, is completed once for each execution of the 
outer loop. 
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Table 24 


ASA carriage control 

The program asa(l) processes the output of a Fortran 90 program that 
uses ASA carriage control characters so that it can be properly handled 
by many printers. 

The syntax of as a is: 

asa [file-names] 

where file-names is a list of file names to be output with carriage control 
characters interpreted according to ASA rules. 

Table 24 describes the ASA carriage-control characters. 

ASA carriage-control characters 


Character 

Meaning 

blank 

Advance one line. 

0 

Advance two lines. 

l 

Advance to top of next page. 

+ 

Do not advance; overstrike previous line. 


asa reads input from filenames or from standard input if filenames is 
not specified. Thefirst character of each line is interpreted as a control 
character. Lines beginning with any character other than those listed in 
Table 24 are interpreted as if they began with a blank, and an 
appropriate diagnostic appears on standard error. Thefirst character of 
each line is not printed. The asa program interprets input lines and 
sends its output to standard output. Each input file begins on a new 
page. 

To properly view the output of programs that use asa carriage control 
characters, asa should be used as a filter. For example, the following 
example pipes the output of fortran_asa, an executable HP Fortran 
program that outputs lines with ASA carriage control characters, 
through the asa filter to the line printer command, ip: 

fortran_asa I asa I lp 
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Example programs 

This section gives example programs that illustrate I/O and file-handling 
features of H P Fortran. 

Internal file 

The following example, int_file.f90, illustrates how internal files can use 
edit descriptors internally. The comments within the program explain in 
detail what the program does. 

int_file.f90 

! The main program is a driver for the function roundoff, which 
! truncates and rounds a floating-point number to a requested 
! number of decimal places. The main program prompts for two 
! numbers, a double-precision number and an integer. These are 
! passed to the function roundoff as arguments. The 
! double-precision argument (x) is the value to be rounded, and 
! the integer (n) represents the number of decimal places for 
! rounding. The function converts both arguments to character 
! format, storing them in separate internal files. The function 
! uses the F edit descriptor (to which n in character format has 
! been appended) to round x. This rounded value is finally 
! converted back from a character string to a double-precision 
! number, which the function returns. 

PROGRAM main 

REAL (KIND=8) :: x, y, roundoff 

! Use nonadvancing I/O to suppress the newline and keep the 
! prompt on the same line as the input. 

WRITE (6, '(X, A)', ADVANCE='NO') 'Enter a real number: ' 

READ (5, ' (F14.0) ') x 

WRITE (6, '(A)') 'How many significant digits (1 - 9) to the' 

WRITE (6,'(X, A)',ADVANCE='NO') 'right of the decimal point? 

! Don't enter a number greater than you input into x! 

READ (5, ’ (II) ’ ) n 

y = roundoff(x, n) 

PRINT *, y 
END PROGRAM main 

! This function truncates and rounds x to the number of decimal 
! places specified by n. The function performs no error 
! checking on either argument. 

REAL (KIND=8) FUNCTION roundoff(x, n) 

INTEGER :: n 
REAL (KIND=8) :: x 

CHARACTER (LEN=14) :: dp_val 

CHARACTER :: dec_digits 
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! Use an edit descriptor to convert the value of n to a 
! character; write the result to the internal file 
! dec_digits. 

WRITE (dec_digits, '(II) *) n 

! Concatenate dec_digits to the string 'F14.'. The complete 
! string forms an edit descriptor that will convert the 
! binary value of x to a formatted value of x to a 
! formatted character string that formats the 
! value. The character represents the requested level of 
! precision. The formatted number is stored in the internal 
! file dp_val. 

WRITE (dp_val, ' (FI4.'//dec_digits//') ' ) x 

! Re-convert the formatted record in dp_val to a binary 
! value that the function will return. 

READ (dp_val, ' (FI4.0) ') roundoff 

END FUNCTION roundoff 

Here are the command lines to compile and execute the program, along 
with the output from a sample run: 

$ f90 int_file.f90 
$ a.out 

Enter a real number: 3.1415927 
How many significant digits (1 - 9) to the 
right of the decimal point? 3 
3.142 

Nonadvancing I/O 

The following program reads a formatted sequential file as a set of 
records divided into an arbitrary number of fields. The program uses 
nonadvancing I/O to read and process each field. The comments explain 
what the program does. I nduded with the is a listing of the data file, 
grades, read by the program. 

nonadvance.f90 

! This program uses nonadvancing I/O to read a series of 
! sequential-file records, character by character. Each 
! record is divided into fields. The first field is the name 
! of a student and is 20 characters log. Each of the 
! remaining fields s a numeric test score and is 3 
! i characters long. The name score fields. The program 
! reads the name field, then reads each score field 
! until it encounters end-of-record. When the 
! program encounters end-of-record, it starts a new record. 

! When it encounters and end-of-file, 

! the program is done. For the sake of simplicity, the 
! program does no error-checking. 
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PROGRAM main 

INTEGER :: grade, count, sum, average 
CHARACTER(LEN=20) name 

OPEN(20, FILE='grades') 

WRITE (6, 10) "Name", "Average" 

WRITE (6, *) "-" 

DO ! read and process each record 
sum = 0 
count = 0 

! Read the first field of each record, using nonadvancing 
! I/O so as not to advance beyond that field. The END= 

! specifier causes the program to exit the loop and branch 
! to the statement at 999 when it detects end-of-file. 

READ(20, "(A2 0)", ADVANCE='NO', END=999) name 

! Read each of the score fields of the record, using 
! nonadvancing I/O to avoid advancing to the next record 
! after each read. The EOR= specifier causes the program 
! to break out of the loop and resume 
! execution at the statement labeled 99. 

DO ! inner loop to read scores 
! read a score and convert it to integer 

READ(20, "(13)", ADVANCE='NO', EOR=99) grade 

count = count t 1 
sum = sum + grade 
END DO 

! calculate average 
99 average = sum/count 

WRITE(6, 20) name, average ! write student name and average 
END DO 

10 FORMAT (X, A, T21, A) 

20 FORMAT (X, A, 13) 

999 CLOSE (20) 

END PROGRAM main 

grades 


Sandra Delford 

79 

85 

81 

721001 

00 


Joan Arunsoelton 

8 

64 

77 

79 




Herman Pritchard 

100 

92 

87 

65 

0 



Felicity Holmes 

97 

78 

58 

75 

88 

73 


Anita Jayson 

93 

85 

90 

95 

68 

72 

93 

Phil Atley 

9 

27 

35 

49 




Harriet Myrle 

84 

78 

93 

95 

97 

92 

84 

Pete Hartley 

67 

54 

58 

71 

93 

58 
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Here are the command lines to compile and execute the program, along 
with the output from a sample run: 

$ f90 nonadvance.f90 
$ a.out 


Name 

Average 

Sandra Delford 

86 

Joan Arunsoelton 

57 

Herman Pritchard 

68 

Felicity Holmes 

78 

Anita Jayson 

85 

Phil Atley 

30 

Harriet Myrle 

89 

Pete Hartley 

66 
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File access 

The following example, file_access.f90, illustrates both sequential and 
direct access on external files. Thefile opened for direct access is a 
scratch file. The comments explain what the program does. 

file_access.f90 

! This program uses an external file and a scratch file to 
! insert a number into a list of numerically sorted numbers. 

! The sorted list is held in a external file. The program uses 
! the scratch file as a temporary holding place. The program 
! uses direct access method with the scratch file. 

PROGRAM main 

REAL :: number_to_insert, number_in_list 
INTEGER :: rec_num, iosl, ios2, i 

! Initialize counter. 
rec_num = 0 

! iosl must be initialized to 0 so that the error-handling 
! section at the end of the program will work correctly 
iosl= 0 

! Open the scratch file and the sequential data file 

OPEN (18, FILE='list', STATUS='UNKNOWN', IOSTAT=iosl, ERR=99) 

OPEN (17, STATUS='SCRATCH', ACCESS='DIRECT', FORM='FORMATTED', 

& 

IOSTAT=iosl, ERR=99, RECL=16) 

! Use nonadvancing I/O to suppress newline at the end of output 
! record, thus keeping the prompt on the same line with the 
! input. 

WRITE (6, FMT='(A)', ADVANCE='NO') & 

' Enter number to insert in list: ' 

READ *, number_to_insert 

! Read from sorted list and write to scratch file until we find 
! where to insert number; then, write number_to_insert, and 
! continue writing remaining sorted numbers to scratch file. 
DO WHILE (iosl >= 0) ! loop only if OPEN didn't encounter EOF 

! The END=15 specifier in the READ statement gets us out of 
! the loop, once we're in it. 

READ (18, *, END=10, IOSTAT=ios2, ERR=99) number_in_list 
IF (number_to_insert <= number_in_list) THEN 
rec_num = rec_num + 1 ! add the new record 

WRITE(17, 100, REC=rec_num) number_to_insert 
DO 

rec_num = rec_num + 1 

WRITE(17, 100, REC=rec_num) number_in_list 
READ (18, *, END=15, IOSTAT=ios2, ERR=99) number_in_list 
END DO 
ELSE 

rec_num = rec_num + 1 

WRITE (17, 100, REC=rec_num) number_in_list 
END IF 
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END DO 

! The file is empty or the item goes at the end of file. Add 1 
! to rec_num for the record to be inserted. 

10 rec_num = rec_num + 1 

WRITE (17, 100, REC=rec_num) number_to_insert 

! Copy the scratch file to the data file. But first rewind 
! so that we start writing at beginning of the data file. 

15 REWIND 18 

! Read from scratch file and write to data file 
DO i = 1, rec_num 

READ (17, 100, REC=i) number_in_list 
WRITE (18, *) number_in_list 
END DO 
CLOSE (18) 

CLOSE (17) 

STOP 'Inserted!' 

! Error handling section 

99 IF (iosl /= 0) THEN 

WRITE (7, 200) "Open error = ", iosl 
ELSE 

WRITE (7, 200) "Read error = ", ios2 
END IF 

100 FORMAT (F16.6) 

200 FORMAT (A, 216) 

END PROGRAM main 

Here are the command lines to compile and execute the program, along 
with the output from a sample run. Output from the cat command 
shows the contents of the list file before and after executing the 
program: 

$ f90 file_access.f90 
$ cat list 

0.5 

1.2 

2.5 

3.5 
26.15 

$ a.out 

Enter number to insert in list: 4.7 
STOP Inserted! 

$ cat list 

0.5 

1.2 

2.5 

3.5 
4.7 
26.15 
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I/O formatting occurs during data transfer operations when data is 
converted between its machine-readable binary representation and 
human-readable character format. Although unformatted data transfers 
are faster because they do not i ncur the overhead of data conversion, I /O 
formatting is useful for displaying data in a human-readable form and 
for transferring data between machines with different machine 
representations for a data type. 

I/O formatting can be implicit or explicit. I mplicit formatting occurs 
during list-directed and namelist-directed I/O: data is converted without 
programmer intervention, based on the data types of the I/O list items; 
see "List-directed I/O" on page 179 and "Namelist-directed I/O" on 
page 183. Explicit formatting occurs under the control of the 
programmer, who specifies how the data is to be converted. 

This chapter describes explicit I/O formatting and includes information 
about the foil owing: 

• FORMAT statement 

• Format specification 

• Edit descriptors 

• E mbedded format specification 

• Nested format specifications 

• Format specification and I/O data list 
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FORMAT statement 

The function of theFORMAT statement is to specify formatting 
information that can be used by one or moreof the foil owing data 
transfer statements: 

• accept (extension) 

• decode (extension) 

• encode (extension) 

• PRINT 

• READ 

• type (extension) 

• WRITE 

The syntax of the format statement is: 

label format ( format-spec ) 

where: 

label is a statement label. 

format-spec is a format specification consisting of a comma- 
separated list of edit descriptors. For detailed 
information about edit descriptors, seethe next section. 

The format statement must include label sothat thedata transfer 
statements can reference it. One format statement can be referenced by 
many data transfer statements. I n the foil owing example, both the read 
and write statements reference the same format statement: 

READ(UNIT=22, FMT=10)ivar, fvar 
WRITE(17, 10)ivar, fvar 

10 FORMAT(17, F14.3) 

For additional information about theFORMAT statement and data 
transfer statements, see Chapter 10, "HP Fortran statements," on 
page 241. 
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Format specification 

A format specification consists of a list of edit descriptors that define the 
format of data to be read with a read statement, or written with a write 
or print statement. A format specification can appear either in a 
format statement or in a character expression in a data transfer 
statement. 

The syntax of a format specification is: 

[descriptor].!, descriptor. .. ] ] 
where: 

descri ptor is an edit descriptor that is used to convert data 

between its internal (binary) format and an external 
(character) format. Edit descriptors are descri bed in 
detail in the following section. 

Note that format specifications are not used in list-directed and 
namelist-directed I/O. 
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Edit descriptors 

Edit descriptors are encoded characters that describe data conversion 
between an internal (binary) format and an external (character) format. 
There are three types of edit descriptors: 

• Data edit descriptors define the format of data to be read or written, 
such as its type and width (in characters). All data edit descriptors 
are repeatable; that is, they can be preceded by a positive integer that 
specifies the number of times the edit descriptor is to be replicated. 

• Control edit descriptors specify editing information, such as the 
number of spaces between input items, treatment of blanks in input, 
and scalefactors. Of the control edit descriptors, only theslash (/) is 
repeatable. 

• Character string edit descriptors output text. None of these is 
repeatable. 

All of the edit descriptors supported by H P Fortran are listed in 
Table25. As indicated by the syntax descriptions included in thetable, 
the field width specification (w) is optional for all data edit descriptors in 
HP Fortran. Notethat the Fortran 90 Standard defines the field width 
specifier to be optional only for the a edit descriptor. Thetable also 
identifies which edit descriptors are repeatable and which can be used on 
input, output, or both. 


Table 25 Edit descriptors 


Descriptor 

Type 

Repeatable? 

I/O use 

Function 

"..." or 1 ... 1 

Character 

string 

No 

Output 

Output enclosed string. 

$ 

Control 

No 

Output 

Suppress newline at end of 
output. 

/ (slash) 

Control 

Yes 

1 n put/out put 

End current record and begin 
new record. 

: (colon) 

Control 

No 

1 n put/out put 

Stop formatting if I/O list is 
exhausted. 
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Descriptor 

Type 

Repeatable? 

I/O use 

Function 

a[w] or R[W] 

Data 

Yes 

1 n put/out put 

Convert character data. 

B[w[.m]] 

Data 

Yes 

1 n put/out put 

Convert integer data, using 
binary base. 

BN 

Control 

No 

1 n put/out put 

Ignore blanks in numeric 
input data. 

BZ 

Control 

No 

1 n put/out put 

Treat blanks as zeroes in 
numeric input data. 

D[w.d] 

Data 

Yes 

1 n put/out put 

Convert real type data with 
exponent. 

E[w.d[Ee]] 

Data 

Yes 

1 n put/out put 

Convert real type data with 
exponent. 

EN[w.d[Ee]] 

Data 

Yes 

1 n put/out put 

Convert real type data, using 
engineering notation. 

ES[w.d[Ee]] 

Data 

Yes 

1 n put/out put 

Convert real type data, using 
scientific notation. 

F[w.d] 

Data 

Yes 

1 nput/output 

Convert real type data without 
exponent. 

G[w.d[Ee]] 

Data 

Yes 

1 nput/output 

Convert numeric data, all 
types. 

Q[w.d] 

Data 

Yes 

1 nput/output 

Convert real type data with 
exponent. 

nHS 

Character 

String 

No 

Output 

Output following n characters. 

i[w[.m]] 

Data 

Yes 

1 nput/output 

Convert integer numeric data. 

L[W] 

Data 

Yes 

1 nput/output 

Convert logical data. 

o[w[.m]] 

Data 

Yes 

1 nput/output 

Convert integer data, using 
octal base. 

kp 

Control 

No 

1 nput/output 

Set scale factor to k. 
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Descriptor 

Type 

Repeatable? 

I/O use 

Function 

Q 

Control 

No 

1 nput 

Return number of bytes 
remai ni ng to be read i n 
current input record. 

S or SP 

Control 

No 

Output 

Print optional plus sign. 

SS 

Control 

No 

Output 

Do not print optional plus sign. 

TC 

Control 

No 

1 nput/output 

Move to column c. 

TLC 

Control 

No 

1 nput/output 

Move c columns to the left. 

trc or CX 

Control 

No 

1 nput/output 

Move c columns to the right. 

z[w[.m]] 

Data 

Yes 

1 nput/output 

Convert integer data, using 
hexadecimal base. 


The following sections describe the edit descriptors. 

NOTE There is no single edit descriptor that defines a field for complex data. 

Instead, you must use two real edit descriptors—the first for the real part of 
the number, and the second for the imaginary part. The two edit descriptors 
may be different or the same, and you can insert control and character string 
edit descriptors between them. 

Likewise, there are no edit descriptors for formatting derived types and 
pointers. For derived types, you must specify the appropriate sequence of 
edit descriptors that match the data types of the derived type’s components. 
For pointers, you must specify the edit descriptor that matches the type of 
the target object. 

Character string or edit descriptor 

The character string edit descriptor is used to write a character constant 
to a formatted output record. It cannot be used to format input. You can 
use either apostrophes or quotation marks to delimit the constant. 
Whichever you use, they must be balanced. That is, if you begin with an 
apostrophe, you must also end with it. If the enclosed character constant 
includes a delimiting character, it must be of the other type; or you can 
escape the deli miter by giving another of the same type. The width of the 
field is the number of characters enclosed by the character string edit 
descriptors, including any blanks. 
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Table 26 


NOTE 


Table 26 provides examples of the character string edit descriptor on 
output. Note that b represents a blank. 

Character string edit descriptor output examples 


Descriptor 

Field width 

Output 

' Enter data: ' 

11 

Enter data: 

"David's turn" 

12 

David's turn 

"bbbspacesbbb" 

12 

bbbspacesbbb 

'That''ll do.' 

11 

That 'll do. 

"""That'll do!""" 

13 

"That'll do!" 

rr rr rr rr 

1 

rr 

i rr i 

1 

rr 


Newline ($) edit descriptor 

The newline edit descriptor is an HP extension that suppresses the 
generation of the newline character (that is, the carriage-return/linefeed 
sequence) during formatted, sequential output. By default, the cursor 
moves to a newline after each output statement. The newline edit 
descriptor causes the cursor to remain on the same line, immediately to 
the right of the last character output. 

Nonadvancing I/O also suppresses the newline at the end of a record. Unlike 
the newline ($) edit descriptor, it is a standard feature of Fortran 90, and can 
be used on input and output. For more information, see “Nonadvancing I/O” 
on page 187 and the advance^ I/O specifier in “open” on page 379. 
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Slash (/) edit descriptor 

The slash edit descriptor terminates thecurrent record and begins 
processing a new record (such as a new line on a terminal). This edit 
descriptor has the same result for both input and output: it terminates 
the current record and begins a new one. For example, on output a 
newline character is printed, and on input a new lineis read. 

Keep in mind the following considerations when using the slash edit 
descriptor: 

• If a series of two or more slashes are written at the beginning of a 
format specification, the number of records skipped is equal to the 
number of slashes. 

• If n slashes appear other than at the beginning of a format 
specification (where n is greater than 1), processing of thecurrent 
record terminates and n - 1 records are skipped. 

• If a format contains only n slashes (and no other format specifiers), n 
+1 records are ski pped. 

The / edit descriptor does not need to be separated from other 
descriptors by commas. 

Colon (:) edit descriptor 

The colon edit descriptor (:) is used when performing formatted I/O to 
terminate format control when the I/O list has been exhausted. If all 
items in an I/O list have been read or written, the colon edit descriptor 
stops any further format processing. If more items remain in the list, the 
colon edit descriptor has no effect. 

Consider the following example: 

WRITE (*, 40) 1, 2 
WRITE (*, 50) 1, 2 
40 FORMAT(3 (' value =', 12)) 

50 FORMAT(3(:, ' value =', 12)) 

The first write statement outputs the line: 

value = 1 value = 2 value = 

The descriptor 'value - is repeated a third time because format control is 
not terminated until the descriptor 12 is reached and not satisfied. 
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The second write statement outputs the line: 

value = 1 value = 2 

This time, the colon descriptor terminates format control before the 
string ' vaiue=' is output a third time. 

A and R (character) edit descriptors 

The a and r edit descriptors definefields for character data. TheA edit 
descriptor specifies left-justification, and the r edit descriptor specifies 
right-justification. 

The r edit descriptor is an H P extension. 

The syntax for the character edit descri ptors is: 

[r] A[w] 

[r]R[w] 

where: 

r is a positive integer constant, specifying the repeat 

factor. 

w is the field width. If w is not specified, the default is the 

length in bytes of the corresponding I/O list item. 

As a portability extension, the list item can be of any data type. 

When the a and r edit descriptors are used for input and output, the 
results can differ according to whether the width (w) specified for the 
edit descriptor is less than, greater than, or equal tothe length of the I/O 
list item. The results on input are summarized in Table 27; the results on 
output are summarized in Table 28. 


Chapter 9 


213 




I/O formatting 

Edit descriptors 


Table 27 


Table 28 


Contents of character data fields on input 


Descriptor 

Width/length 

relationship 

Result 

A 

width < length 

Data is left-justified in 
variable, followed by blanks. 

width >= length 

Data is taken from rightmost 
characters in the field. 

R 

width < length 

Data is right-justified in 
variable, preceded by nulls. 

width >= length 

Data is taken from rightmost 
characters in the field. 


Contents of character data fields on output 


Descriptor 

Width/length 

relationship 

Result 

A 

width <= length 

Data is taken from leftmost 
characters in the field. 

width > length 

Output the value, preceded by 
blanks. 

R 

width <= length 

Data is taken from rightmost 
characters in the field. 

width > length 

Output the value, preceded by 
blanks. 


Examples of the use of character edit descriptors on input are provided 
in Table29. In the table, b represents a blank and z represents a Null. 
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Table 29 


Table 30 


A and R edit descriptors: input examples 


Descriptor 

Input field 

Variable length 

Value stored 

A3 

XYZ 

3 

XYZ 

R3 

XYZ 

4 

ZXYZ 

A5 

ABCbb 

10 

ABCbbbbbbb 

R9 

RIGHTMOST 

4 

MOST 

R8 

CHAIRbbb 

8 

CHAIRbbb 

R4 

CHAIR 

8 

ZZZZCHAI 

A4 

ABCD 

2 

CD 


Table 30 provides examples of character edit descriptors on output. I n 
the table, b represents a blank and z represents a Null. 

A and R Edit descriptors: output examples 


Descriptor 

Internal 

characters 

Variable 

length 

Output 

A6 

ABCDEF 

6 

ABCDEF 

R4 

ABCDEFGH 

8 

EFGH 

A4 

ABODE 

5 

ABCD 

A8 

STATUS 

6 

bbSTATUS 

R8 

STATUS 

6 

bbSTATUS 

R8 

STATUS 

8 

STATUSbb 
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B (binary) edit descriptor 

The b edit descriptor defines a field for binary data. It provides for 
conversion between an external binary number and its internal 
representation. 

The syntax for the binary edit descriptor is: 

[r]B[w[.m] ] 

where: 

r is a positive integer constant, specifying the repeat 

factor. 

w is a positive integer constant, specifying the field 

width. 

m is an unsigned integer constant, specifying the 

minimum number of digits that must be in the field 
and forcing leading zeroes as necessary up tothefirst 
nonzero digit. The m value is ignored on input. If m is 
not specified, a default value of 1 is assumed. If m is 
larger than w, the field is filled with w asterisks. 

Variables to receive binary input must be of type integer. The only legal 
characters are Os and Is. Nonleading blanks are ignored, unless thefile 
is opened with blank= ' zero '. 

If thefile is opened with blank= ' zero ', non leading blanks are treated 
as zeroes. For more information about the blank= specifier, see "open" 
on page 379. Plus and minus signs, commas, or any other symbols are 
not permitted. If a nonbinary digit appears, an error occurs. The 
presence of too many digits for the integer variable (or I/O list item) is 
illegal. 
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Table 31 


Output 


Table 32 


Table 31 provides examples of the binary edit descriptor on input. 

B Edit descriptor: input examples 


Descriptor 

Input field (binary) 

Value stored (binary) 

B8 

1111 

mi 

B8 

01111 

nil 

B4 

10101 

1010 

B8 

1.1 

error: illegal character 


U nlike input, list items on output may be of any type, though character 
values are output only as the binary equivalent of their ASCI I 
representation (without a length descriptor). If w is greater than the 
number of converted binary digits (excluding leading zeroes), the binary 
digits are right-justified in the output field. 

If w is less than the number of converted binary digits, the field isfilled 
with w asterisks. This primarily affects the output of negative values. 
Because negative values are output in twos complement form, their high- 
order bits are nonzero and cause the field to be filled with asterisks when 
w is less than the number of binary digits in the entire output value. 

The field width required to fully represent the binary valueof an item is 
eight times its size in bytes. For example, an integer*4 item could 
require a field w of up to 32 characters. 

Only Is and Os are printed on output. 

Table 32 provides examples of the binary edit descriptor on output. 


B Edit descriptor: output examples 


Descriptor 

1 nternal value 

Output 

B5 

27 

non 

B8 

27 

bbbnon 

B8.6 

27 

bbonon 

B8 

-27 

******** 
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BN and BZ (blank) edit descriptors 

The bn and bz edit descriptors control the interpretation of embedded 
and trailing blanks in numeric input fields. Thesyntax of the blank edit 
descriptors is: 

BN 

BZ 

At the beginning of the execution of an input statement, blank 
characters within numbers are ignored except when the unit is 
connected with blank=' zero' specified in the open statement, bn and 
bz override the blank= I/O specifier for the current read statement. For 
more details about the blank= I/O specifier, see "open" on page 379. 

If a bz edit descriptor is encountered in theformat specification, trailing 
and embedded blanks in succeeding numericfields aretreated as zeroes. 
The bz edit descriptor remains in effect until a bn edit descriptor or the 
end of the format specification is encountered. If bn is specified, all 
embedded blanks are removed and the input number is right justified 
within thefield width. 

The bn and bz edit descriptors affect only i, b, o, f, d, e, en, es, g, and z 
format descriptors during the execution of an input statement. The bn 
and bz edit descriptors do not affect character and logical edit 
descriptors. 

Table 33 provides examples of the bn and bz edit descriptors on input. 


BN and BZ edit descriptors: input examples 


Descriptor 

Input 

characters 

bn editing in 
effect 

bz editing in 
effect 

14 

ib2b 

12 

1020 

F 6.2 

b4b.b2 

4.2 

40.02 

E7.1 

sb.bEib 

5.0 x 10 1 

5.0 x 10 11 

E5.0 

3E4bb 

3.0 x 10 4 

3.0 x lO 400 
(overflow) 


The bn and bz edit descriptors are ignored during the execution of an 
output statement. 
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D, E f EN f ES, F, G, and Q (real) edit descriptors 

TheD, e, en, es, f, g, and q edit descriptors define fields for real 
numbers. The I/O list item corresponding to a real descriptor must be a 
numeric type. (The Standard permits real and complex types only; as an 
extension, HP Fortran allows integers.) 

The syntax for these edit descriptors is: 

[ r ] d [ w.d ] 

[r] e [w.d [ {e | d | q} e] ] 

[r] en [w.d [Ee] ] 

[r] es [w.d [Ee] ] 

[r] f [w.d] 

[r] g [w.d [ {e | d | q} e] ] 

[r] q [w.d] 

where: 

r is a positive integer constant, specifying the repeat 

factor. 

w is a positive integer constant, specifying the field 

width. 

d is a nonnegative integer constant, specifying the 

number of decimal places on output. 

e is a positive integer constant, specifying the number of 

digits in the exponent. 

For formatting complex data, you can use two real edit descriptors—the 
first for the real part of the number and the second for the imaginary 
part. The two edit descri ptors may be different or the same, and you can 
insert control and character string edit descriptors between them. 
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Real edit descriptors on input 

The input field for the real descriptors consists of an optional plus or 
minus sign followed by a string of digits that may contain a decimal 
point. If the decimal point is omitted in the input string, then the 
number of digits equal tod from the right of thestring are interpreted to 
be to the right of the decimal point. If a decimal point appears in the 
input string and conflicts with the edit descriptor, the decimal point in 
the input string takes precedence. This basic form can be followed by an 
exponent in one of the following forms: 

• A signed integer constant 

• An e followed by an optionally signed integer constant 

• Ad followed by an optionally signed integer constant 

• A q followed by an optionally signed integer constant 

All four exponent forms are processed in the same way. Note, however, 
that ehas no effect on input. 

The en and es edit descri ptors are the same as the f edit descri ptor on 
input.TheQ edit descriptor (an HP Fortran extension) isthesameasthe 
e edit descriptor on input. 

Table 34 provides examples of the real edit descriptors on input. The bz 
edit descriptor listed in the "Descriptor" column treats nonleading 
blanks in numeric fields as zeroes. 


D, E, F, and G edit descriptors: input examples 


Descriptor 

Input field 

Value stored 

F 6.5 

4.51E4 

45100 

G4.2 

51-3 

.00051 

E8.3 

7.lbEb5 

710000 

D 9.4 

bbb45E+35 

.0045 x 10 35 

BZ, F6.1 

-54E3b 

-5.4 x 10 30 
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Real edit descriptors on output 

The output field for the real descriptors consists of w character positions, 
filled with leading blanks (if necessary) and an optionally signed real 
constant with a decimal point, rounded tod digits after the decimal 
point. The foil owing sections describe the real edit descriptors on output 
in detail. 

D and E edit descriptors 

The d and e edit descriptors define a normalized floating-point field for 
real and complex values. The value is rounded tod digits. The exponent 
part consists of edigits. If Eeis omitted in a d or e edit descriptor, then 
the exponent occupies two or three positions, depending on its 
magnitude. The field width, w, should follow the general rule: w is 
greater than or equal tod+7. I f Ee is used, w is greater than or equal to 
d+e+5. This rule provides positions for a leading blank, the sign of the 
value, thedecimal point, d digits, theexponent letter (d, e, or q), thesign 
of the exponent, and theexponent. TheEe, De, and Qespecifications, 
which areavailablewith theE edit descriptor, control which exponent 
letter is output. 

Table 35 provides examples of the e and d edit descriptors on output. 


D and E edit descriptors: output examples 


Descriptor 

1 nternal value 

Output 

DIO . 3 

+12.342 

bb. 123D+02 

E10.3E3 

-12.3454 

-.123E+002 

E12.4 

+12.34 

bbb. 1234E+02 

D12.4 

-.00456532 

bb-. 4565D-02 

DIO.10 

+99.99913 

•k'k'k'k'k'k'k'k'k'k 

Ell . 5 

4999.997 

b. 10000E+04 

E10.3E4 

+.624 x 10' 30 

.624E-0030 


Chapter 9 


221 




I/O formatting 

Edit descriptors 


Table 36 


EN and ES edit descriptors 

The en and es descriptors format floating-point values, using 
engineering and scientific notation, respectively. They aresimilar in 
form to the e descri ptor, except: 

• The field produced by the en descriptor has an exponent that is 
divisible by 3 and a significand that is in the range 1 to 999. 

• The field produced bytheES descriptor has one digit beforethe 
decimal point. 

Table 36 provides examples of the en and es edit descriptors on output. 

EN and ES edit descriptors: output examples 


Descriptor 

1 nternal value 

Output 

EN12.3 

+3.141 

bbb3. 141E+00 

ES12.3 

+3.141 

bbb3. 141E+00 

EN12.3 

+.00123 

bbbl .230E-03 

ES12.3 

+.00123 

bbbl .230E-03 

EN12.3 

-.7 

-700.000E-03 

ES12.3 

-.7 

bb-7. oooe-oi 

EN12.3 

+1234.5 

bbbl .235E+03 

ES12.3 

+1234.5 

bbbl .235E+03 
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F edit descriptor 

The f edit descriptor defines a field for real and complex values. The 
value is rounded tod digits tothe right of thedecimal point. The field 
width, w, should be four greater than the expected length of the number 
to provide positions for a leading blank, the sign, thedecimal point, and 
a roll-over digit for rounding if needed. 

Table 37 provides examples of the f edit descriptor on output. 

F edit descriptor: output examples 


Descriptor 

1 nternal value 

Output 

F5.2 

+10.567 

10.57 

F 3.1 

-254.2 

k k k 

F6.3 

+5.66791432 

b5 .668 

F8.2 

+999.997 

biooo .00 

F8.2 

-999.998 

-1000.00 

F7.2 

-999.997 

******* 

F4 . 1 

+23 

23.0 


G edit descriptor 

The G edit descriptor can be used with any data type but is commonly 
used to define a field for real and complex values. 

According tothe magnitude of the data, the g edit descriptor is 
interpreted as either an e or f descriptor. (For more information on these 
edit descriptors, refer to "D and E edit descriptors” on page 221 and "F 
edit descriptor" on page 223.) TheE edit descriptor is used when one of 
thefollowing conditions is true: 

• The magnitude is less than 0.1 but not zero. 

• The magnitude is greater than or equal to io**d (after rounding tod 
digits). 

If the magnitude does not fit either of these rules, theF edit descriptor is 
used. When f is used, trailing blanks are included in thefield where the 
exponent would have been. 
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Table 38 


For fixed- or floating-point format descriptors, the field width is w. The 
value is rounded to d digits, and the exponent consists of edigits. If Eeis 
omitted, the exponent occupies two positions. If Ee is omitted and the 
exponent is greater than 99 (that is, it requires three digits), the 
exponent letter is dropped from the output. Thefield width, w, should 
follow the general rule: w is greater than or equal to the sum of d+7; or, if 
Eeis specified, w is greater than or equal to the sum of d+e+5. This rule 
provides positions for a leading blank, the sign of the value, d digits, the 
decimal point, and, if needed, the exponent letter (d, e, or q), the sign of 
the exponent, and the exponent. N ote that the Ee, De, and Qe 
specifications control which exponent letter is output. 

When used to specify I/O fields for integer, character, and logical data, 
the g edit descriptor has the same syntax and same effect as the integer, 
character, and logical edit descriptors. Thed and evalues (if specified) 
have no effect. 

Table 38 provides examples of the G edit descriptor on output. 


G edit descriptor: output examples 


Descriptor 

Internal value 

Interpretation 

Output 

G10.3 

+1234.0 

E10.3 

bO.123E+04 

G10.3 

-1234.0 

E10.3 

-0.123E+04 

G12.4 

+12345.0 

E12.4 

bbO.1235E+05 

G12.4 

+9999.0 

F8.0, 4X 

bbb9999.bbbb 

G12.4 

-999.0 

F8.1, 4X 

bb-999.obbbb 

G7.1 

+.09 

E7.1 

0.9E-01 

G5.1 

-.09 

E5.1 

k k k k k 

Gil . 1 

+9999.0 

Ell . 1 

bbbbo. ie+05 

G8.2 

+9999.0 

E8.2 

0.10E+05 

G7.2 

-999.0 

E7.2 

k k k k k k k 
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Q edit descriptor 

The Q edit descriptor (an H P extension) has the same effect as theE edit 
descriptor on output, except that it outputs a q for the exponent instead 
of an e. 

The Q edit descriptor can also be used to determine the number of bytes 
remaining to be read in an input record; see"Q (bytes remaining) edit 
descri ptor" on page 233. 

H (Hollerith) edit descriptor 

The h edit descriptor outputs a specified number of characters. The 
syntax is: 

nHcharacter-sequence 

where: 

n 

is a positive integer that specifies the number of 
characters to output. This number must exactly match 
the actual number of characters in character-sequence 
ch a r a cter-seq u en ce 

is the string of representable characters (including 
blanks) to output. 

Table 39 provides examples of the Hollerith edit descriptor on output. 

H edit descriptor: output examples 


Descriptor 

Field width 

Output 

12HbbbSpacesbbb 

12 

bbbspacesbbb 

14H"Itbisn'tbso ." 

14 

"Itbisn'tbso ." 
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Table 40 


I (Integer) edit descriptor 

The i edit descriptor defines a field for an integer number. As an HP 

extension, it can also be used on real and logical data. The corresponding 

I/O list item must be a numeric or logical type. 

The syntax of the integer edit descriptor is: 

f ri ] [ w [. m] ] 

where: 

r is a positive integer constant, specifying the repeat 

factor. 

w is a positive integer constant, specifying the field 

width. 

m is a nonnegative integer constant, specifying the 

minimum number of digits that must be in the field 
and forcing leading zeroes as necessary up tothefirst 
nonzero digit. The m value is ignored on input. If m is 
not specified, a default value of 1 is assumed. If m is 
larger than w, thefield is filled with w asterisks. If m = 
0 and the list item is zero, only blanks are output. 


The integer edit descriptor causes the interpretation of the next w 
positions of the input record. The number is converted to match the type 
of the list item currently using the descriptor. A plus sign is optional for 
positive values. A decimal point must not appear in thefield. 

Table40 provides examples of the integer edit descriptor on input. 

I edit descriptor: input examples 


Descriptor 

Input field 

Value stored 

14 

bibb 

1 

15 

bbbbb 

0 

15 

bbbbbi 

0 

12 

-l 

-1 

14 

-123 

-123 

13 

bi2 

12 
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Table 41 


Descriptor 

Input field 

Value stored 

13 

12 b 

12 

13 

12 b 

120 

13 

l. l 

error: illegal character 


The integer edit descriptor outputs a numeric variable as a right- 
justified integer value (truncated, if necessary). The field width, w, 
should be one greater than the expected number of digits to allow a 
position for a minus sign for negative values. If m is set toO, a zero value 
is output as all blanks. 

Table41 provides examples of the integer edit descriptor on output. 

I edit descriptor: output examples 


Descriptor 

1 nternal value 

Output 

14 

4452.25 

b4 52 

12 

46234 

* * 

13 

- 11.92 

-11 

15 

-52 

bb-52 

110 

123456.5 

bbbbl23456 

16.3 

3 

bbb003 

13.0 

0 

bbb 

13 

0 

bbo 
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L (Logical) edit descriptor 

The l edit descriptor defines a field for logical data. Its syntax is: 

[ r ] l [ w ] 

where: 

r is a positive integer constant, specifying the repeat 

factor. 

w is a positive integer constant, specifying the field 

width. 

The I/O list item corresponding to an l edit descriptor must be of type 
logical, short logical, or byte. 

Input The field width is scanned for optional blanks followed by an optional 

decimal point, followed by t (or t) for trueor f (or f) for false. Thefirst 
nonblank character in the input field (excluding theoptional decimal 
point) determines the value to be stored in the declared logical variable. 
It is an error if thefirst non blank character is not t, t, f, f, or a period(.). 

Table 42 provides examples of the logical edit descriptor on input. 

Table 42 L edit descriptor: input examples 


Descriptor 

Input field 

Value dtored 

Ll 

T 

.TRUE. 

LI 

f 

. FALSE . 

L6 

.TRUE. 

.TRUE. 

L7 

.false. 

. FALSE . 

L2 

. t 

.TRUE. 

L8 

bbbbTRUE 

.TRUE. 

L3 

ABC 

error: illegal character 


Output The character t or f is right-justified in the output field, depending on 

whether the value of the list item is trueor false. Table 43 provides 
examples of the logical edit descriptor on output. 
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Table 43 L edit descriptor: output examples 


Descriptor 

Internal value 

Output (logical) 

L5 

false 

bbbbF 

L4 

true 

bbbT 

LI 

true 

T 


O (Octal) edit descriptor 

Theo edit descriptor defines a field for octal data. It provides conversion 

between an external octal number and its internal representation. 

The syntax for the octal edit descri ptor is: 

[r] o [w [. m] ] 

where: 

r is a positive integer constant, specifying the repeat 

factor. 

w is a positive integer constant, specifying the field 

width. 

m is a nonnegative integer constant, specifying the 

minimum number of digits that must be in the field 
and forcing leading zeroes as necessary up to the first 
nonzero digit. The m value is ignored on input. If m is 
not specified, a default value of 1 is assumed. If m is 
larger than w, the field is filled with w asterisks. 

Input The presence of too many digits for the integer variable (or list item) to 

receive produces undefined results. Legal octal digits are 0 through 7. 

Plus and minus signs are illegal. 
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Table 44 


Output 


Table 45 


Table 44 provides examples of the octal edit descriptors on input. 

O edit descriptor: input examples 


Descriptor 

Input field (octal) 

Value stored (octal) 

08 

12345670 

12345670 

02 

77 

77 

03 

064 

64 

08 

4 5r 

error: illegal character 


List items may be of any type, though character variables are output 
only as the octal equivalent of their ASCI I representation (no length 
descriptor). 

If w is greater than the number of converted octal digits (including 
blanks between words but excluding leading zeroes), the octal digits are 
right-justified in the output field. If w is less than the number of 
converted octal digits, the field is filled with asterisks. This primarily 
affects the output of negative values. Because negative values are output 
in twos complement form, their high-order bits are nonzero and cause 
thefield to be filled with asterisks when w is less than the number of 
octal digits in the entire output value. If m is set to 0, a zero value is 
output as all blanks. 

Table 45 provides examples of the octal edit descriptors on output. 


O edit descriptor: output examples 


Descriptor 

Internal value 

Output (Octal) 

06 

80 

bbbi20 

02 

80 

* * 

014 

-9 

bbb3 7777777767 

011 

32767 

bbbbbb7 7 7 7 7 

06.4 

79 

bboll7 
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Input 


Output 


Descriptor 

Internal value 

Output (Octal) 

012 

l. l 

bb7743146315 

012 

'A' 

bioi 

012 

'ABC ' 

bioibi02bi03 


P (scale factor) edit descriptor 

The kp edit descriptor causes a scalefactor of k to be applied to all 
subsequent f, d, e, en, es, and G edit descriptors in theformat 
specification. 

If the p edit descriptor does not precede an f, d, e, en, es, or g edit 
descriptor, it should be separated from other edit descriptors by a 
comma. If the p edit descriptor immediately precedes an f, d, e, en, es, 
or g edit descriptor, the comma is optional. 

For example, theformat specification 

(3P, 12, F4.1, E5.2) 

is equivalent to 

(12, 3PF4.1, E5.2) 

When a format specification is interpreted, the scale factor is initially set 
toO. When a p edit descriptor is encountered, the specified scalefactor 
takes effect for theformat specification and remains in effect until 
another p edit descriptor is encountered. 

The effect of the scale factor differs for input and output as follows: 

If the value in the input field does not havean exponent, the internal 
number is equal to the field value multiplied by 10-k. If the value in the 
input field has an exponent, the scalefactor has no effect. SeeTable 46 
for examples of the scale factor on input. 

The scale factor has no effect on theEN, es, f and G (interpreted as f) 
edit descriptors. For the d, e, and G (interpreted as e) edit descriptors, 
the valueof the list item is multiplied by 10k as it is output but the 
exponent part is decreased by k. 
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The value specified for the scale factor (k) must bein the range: 

-d < k < (d + 2 ) 

where: 

d is the number of digits in thefractional part of the 

number being written. 


k is a signed integer that specifies the scale factor. 

Table 46 provides examples of the scale factor on output. 

P edit descriptor: input and output examples 


Format 

specification 

Input 

field 

Internal value 

Output 

(-2PG15.5) 

1.97E-4 

1.97 x 10" 4 

bbbbb. 00197E-01 

(2P, F15.5) 

27.982 

.2798199 

bbbbbbb27.98200 

(2P,ESI5.5) 

3518 . 

35.18 

bbbb3.518OOE+01 

(-2P,EN15.5) 

7.91E+5 

7.91 x 10 5 

bb791-00000E+03 

(-2PE15.5) 

.17694 

17.694 

bbbbb.00177E+04 


When part or all of a format specification is repeated, the current scale 
factor is not changed until another scale factor is encountered. 
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Q (bytes remaining) edit descriptor 

The q edit descriptor is an H P extension that returns the number of 
bytes remaining to be read in the input record, placing the result intothe 
corresponding integer variable in the I/O list. The return value can be 
used to control the remaining input items. 

The Q edit descriptor is valid on input only; it is ignored on output. It can 
be used for reading formatted, sequential, and direct-access files. The 
following program segment reads variable-length strings from a 
sequential file: 

CHARACTER(LEN=80) :: string 

INTEGER :: n, i 

READ (11,'(Q,80A1)' ) n, (string (i:i), i=l, n) 

For information about the Qw.d edit descriptor for editing real data, see 
"D, E, EN, ES, F, G, and Q (real) edit descriptors”on page 219. 

S, SP, and SS (plus sign) edit descriptors 

The s, sp, and ss edit descriptors control printing of the plus sign 
character in numeric output. The default behavior of H P Fortran is not to 
print the plus sign. However, an sp edit descriptor in the format 
specification causes the plus sign to appear in any subsequent numeric 
output where the value is positive. Thess descriptor suppresses the plus 
sign in subsequent numeric output. The s edit descriptor restores the 
default behavior. 

The sign edit descriptors have no effect on input. 
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T, TL, TR, and X (tab) edit descriptors 

The tab edit descriptors position thecursor on the input or output record. 
Their syntax is: 

m 

TLn 

TRn 

nx 

where: 

n is a positive integer constant, specifying the number of 

column positions to skip for positioning within the 
current output or input record. 

The t edit descriptor references an absolute column number, whilethe 
descriptors tl and tr reference a relative number of column positions to 
the left (tl) or right (tr) of the current cursor position. Note that the tr 
descriptor is identical to the X edit descriptor. 

Z (hexadecimal) edit descriptor 

Thez edit descriptor defines a field for hexadecimal data. This descriptor 
provides for conversion between an external hexadecimal number and its 
internal representation. 

The syntax for the hexadeci mal edit descri ptor is: 

[r ] z [w [.m ] ] 

where: 

r is a positive integer constant, specifying the repeat 

factor. 

w is a positive integer constant, specifying the field 

width. 

m is a nonnegative integer constant, specifying the 

minimum number of digits that must be in the field 
and forcing leading zeroes as necessary up tothefirst 
nonzero digit. The m value is ignored on input. If m is 
not specified, a default value of 1 is assumed. If m is 
larger than w, the field is filled with w asterisks. 
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Input Variables to receive hexadecimal input must be of type i nteger. Legal 

hexadecimal digits are o through 9, and a through f (or a through f). 
Nonleading blanks are ignored, unless thefile is opened with 
blank= ' zero '. If thefile is opened with blank= ' zero ', nonleading 
blanks are treated as zeroes. For more information about the blank= 
specifier see "open" on page 379. Plus and minus signs, commas, or any 
other symbols are neither permitted on input nor printed on output. The 
presence of too many digits for the integer variable(or list item) produces 
undefined results. 

Table47 provides examples of the hexadecimal edit descriptor on input. 

Table 47 Z edit descriptor: input examples 


Descriptor 

Input field 
(hexadecimal) 

Value stored 
(hexadecimal) 

Z 4 

FF3B 

FF3B 

Z 4 

f F f F 

FFFF 

Z2 

ABCD 

AB 

Z3 

1 . 1 

error: illegal character 


Output List items may be of any type, though character variables are output 

only as the hexadecimal equivalent of their ASCI I representation 
(without a length descriptor). If w is greater than the number of 
converted hexadecimal digits (excluding leading zeroes), the hexadecimal 
digits are right-justified in the output field. If w is less than the number 
of converted hexadecimal digits, thefield is filled with asterisks. This 
primarily affects the output of negative values. Because negative values 
are output in twos complement form, their high-order bits are nonzero 
and cause the field to be filled with asterisks when w is less than the 
number of hexadecimal digits in the entire output value. If m is set to 0, 
a zero value is output as all blanks. 

Thefield width required to fully represent the hexadecimal value of an 
item is twice its size in bytes. For example, a character *12 item would 
require a field width of 24 characters. 

Table48 provides examples of the hexadecimal edit descriptor on output. 
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Table 48 


Z edit descriptor: output examples 


Descriptor 

Internal value 

Output 

Z2 

27 

IB 

Z6.4 

27 

bbooiB 

Z 

'A' 

b4i 

Z8 

'ABCD' 

41424344 

Z8 

1.1 

3F8CCCCD 
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Embedded format specification 

A format specification can be embedded in a data transfer statement as a 
character expression. Parentheses are included in the expression, and 
the first nonblank character must be a left parenthesis. The matching 
right parenthesis must also be in the expression. A list of edit descriptors 
appears between the parentheses. Any characters appearing after the 
matching right parenthesis are ignored. 

If the character expression is a character constant, it must be delimited 
by either apostrophes or quotation marks. If the character constant 
contains another character constant, the nested character constant must 
also be delimited. If the inner set of delimiters is the same as the outer 
set they must be doubled. Each of the foil owing statements is correct and 
will produce the same results: 

PRINT "('i = ', i2)", i 
PRINT "(""i = i2)", i 

PRINT '("i = ", i2)', i 
PRINT '('' i = '', i2)', i 
WRITE (6, "('i = ', ±2)") i 

If the character expression is an array element, the entire specification 
must be within that element. If the expression is a whole character array, 
the format specification is the concatenation of the array elements in 
array element order. (As an extension, HP Fortran allows the use of an 
integer array to contain a format specification.) 

The foil owing illustrates the use of a character array to hold the format 
specification: 

CHARACTER(LEN=6), DIMENSION(2) :: fspec 

fspec(1) = ’ (F8.3, ' 
fspec (2) = ' 15) ' 

PRINT fspec, fvar, ivar 

If the value of fvar is 12.34567 and ivar is 123, the output would be: 

bb!2.346bbl23 
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Nested format specifications 

A format specification can include a nested format specification (another 
set of edit descriptors, enclosed in parentheses). You can also precede the 
nested format specification with a repeat factor, as in thefollowing 
example: 

(1H , 2 (15, F10.5) ) 

This is equivalent to: 

(1H , 15, F10.5, 15, F10.5) 

Each nested specification is known as a group at nested level n. The 
valueof n begins at 1. For each successive level of nesting, n is 
incremented by 1. Each group at nested level 1 can contain one or more 
groups at nested level 2, and so on. 

For example: 

(E9.3, 16, (2X, 14) ) 

contains one group at nested level 1. 

(L2,A3/(E10.3,4(A2,L4)) ) 

has one group at nested level 1 and one at nested level 2. 

(A, (3X, (12, (A3) ) , 13) ,A) 

contains one group at nested level 1, one at level 2, and one at level 3. 

A nested format specification can be preceded by a repeat specification. 
For example, thefollowing input record 

b26b6.4336b373,86b39bb49.79bb4bbb4395.4972 

could be accessed with thefollowing format statement: 

10 FORMAT (I3,F7.4,2 (F7.2,13),F12.4) 

The list of variables following read statement corresponds to the 
preceding format statement: 

READ 10, i, a, b, j , d, k, f 

The read statement would read values for i and a; repeat the nested 
format specification F7.2,13 twice to read values for b, j, d, and k; and, 
finally, read a value for f. 
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Format specification and I/O data list 

A formatted I/O statement references each item in an I/O list, and the 
corresponding format specification is scanned to find a format descriptor 
for each item. As long as an item is matched to an edit descriptor, normal 
execution continues. 

If there are moreedit descriptors than list items, format control 
terminates with the last list item. If there are fewer edit descriptors than 
list items, the foil owing three steps are performed: 

1 The current record is terminated. 

2 A new record is started. 

3 Format control is returned to the format specification based upon the 

following hierarchy: 

a Control returns to the repeat specification for the rightmost group 
at nested level 1. For information about nested levels, see "Nested 
format specifications" on page 238. 

b If no repeat specification exists in the rightmost group at nested 
level 1, control returns to the group itself. 

c If there is no group at nested level 1, control returns to the first 
descriptor in theformat specification. 


Chapter 9 


239 




I/O formatting 

Format specification and I/O data list 


Table 49 provides examples showing how control is returned to the 
format specification in different circumstances. 


Table 49 Format control and nested format specifications 


Format specification 

Control 
returns to: 

Explanation 

(15,2(3X,12, (14) ) ) 

2(3X,12, (14) ) 

The rightmost group at nested level 1 is 

3x, 12 , (14). Control returns to the repeat 
specifier for this group. 

(F4.1,12) 

(F4.1,12) 

There is no group at nested level 1. Control 
returns to the first descriptor in the format 
specification. 

(A3,(3X,12),4X,14) 

(3X,12),4X,14 

Control returns to the group at nested level 1. 


240 


Chapter9 




10 


HP Fortran statements 


This chapter describes the H P Fortran statements and attributes, 
arranged in alphabetical order. The descriptions provi de syntax 
information, applicable rules and restrictions, and examples. 

The following descriptions for specific type declarations are located in 
this chapter. Generic type declaration information is described in 'Type 
declaration for intrinsic types" on page 24: 

• BYTE 

• CHARACTER 

• COMPLEX 

• DOUBLE COMPLEX 

• DOUBLE PRECISION 

• INTEGER 

• LOGICAL 

• REAL 

• RECORD 

• type (type-name) 

This chapter does not describe the foil owing: 

• Assignment statements (instead, see "Assignment" on page 95) 

• Statement functions (instead, see "Statement functions" on page 137) 

• Constructs (instead, see "Data types and data objects" on page 21) 
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Attributes 

Table 50 lists all the attributes that an H P Fortran entity can have and 
indicates their compatibility. If the box at the intersection of two 
attributes contains a check mark, the attributes are mutually compatible 
and can be held simultaneously by an entity. The attributes are referred 
to throughout this chapter as well as in the rest of the book. 


Table 50 Attribute compatibility 



ALLOCATABLE 

AUTOMATIC 

DIMENSION 

EXTERNAL 

Initialization 

INTENT 

INTRINSIC 

OPTIONAL 

PARAMETER 

POINTER 

PRIVATE 

PUBLIC 

SAVE 

STATIC 

TARGET 

VOLATILE 

ALLOCATABLE 

















AUTOMATIC 

















DIMENSION 

















EXTERNAL 

















1 nitialization 

















INTENT 

















INTRINSIC 

















OPTIONAL 

















PARAMETER 

















POINTER 

















PRIVATE 

















PUBLIC 

















SAVE 
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Attributes 



ALLOCATABLE 

AUTOMATIC 

DIMENSION 

EXTERNAL 

Initialization 

INTENT 

INTRINSIC 

OPTIONAL 

PARAMETER 

POINTER 

PRIVATE 

PUBLIC 

SAVE 

STATIC 

TARGET 

VOLATILE 

STATIC 

















TARGET 

















VOLATILE 


















NOTE automatic, static, and volatile may be specified in a statement of 

the same name but not as attributes in a type declaration statement. 
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Statements and attributes 

The remainder of this chapter describes all of the statements and 
attributes that you can use in an HP Fortran program. The statement 
and attribute descriptions are listed in alphabetical order. For general 
information about statements—including theorder in which statements 
must appear in a legal program—see "Statements" on page 11. 
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accept (extension) 


accept (extension) 

Reads from standard input. 

The syntax of the accept statement can take one of two forms: 

• Formatted and list-directed syntax: 
accept format [, input-list ] 

• Namelist-directed syntax: 

accept name 
format 

is one of the following: 

• An asterisk (*), specifying list-directed I/O. 

• The label of a format statement containing the format 
specification. 

• An integer variablethat has been assigned the label of a 
format statement. 

• An embedded format specification, 
input-list 

is a comma-separated list of data items. The data items 
can include variables and implied-DO lists. 

name 


is the name of a namelist group, as previously defined 
by a namelist statement. Using this syntax, the 
accept statement accepts data from standard input 
and transfers it to the namelist group. To perform 
namelist-directed I/O with a connected file, you must 
usetheREAD statement and include the nml= specifier. 

The accept statement is an HP Fortran extension and is provided for 
compatibility with other versions of Fortran. The standard read 
statement performs the same function, and standard-conforming 
programs should use it. 
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accept (extension) 


The accept statement transfers data from standard input to internal 
storage. (U nit 5 is preconnected to the H P-UX standard input.) The 
accept statement can be used to perform formatted, list-directed, and 
namelist-directed I/O only. 

To read data from a connected file, use the read statement. 

The following example of the accept statement reads an integer and a 
floating-point value from standard input, using list-directed formatting: 

INTEGER :: i 
REAL :: x 
ACCEPT *, i, x 

FORMAT, NAMELIST, PRINT and READ 

For related information, see the foil owing: 

• "List-directed I/O"on page 179 

• "I mplied-DO loop" on page 194 

• "E mbedded format specification” on page 237 
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Syntax 


allocatable (statement and attribute) 

Declares an allocatable array with deferred shape. 

The syntax of a type declaration statement with the allocatable 
attribute is: 

type, attrib-list : : entity-list 
type 

is a valid type specification (integer, real, logical, 
character, type (type-name), etc.), as described in Chapter 3, 
"Data types and data objects," on page 21. 
attrib-list 

is a comma-separated list of attributes including allocatable 
and optionally those attributes compatible with it, namely: 


DIMENSION 

PUBLIC 

TARGET 

PRIVATE 

SAVE 



entity-list 

is a comma-separated list of entities. Each entity is of the form: 

array-name[( deferred-shape-spec-list)] 

If ( deferred-shape-spec-list) is omitted, it must be 
specified in another declaration statement. 

array-name 

is the name of an array being given the attribute 

ALLOCATABLE. 

def erred-shape-spec-1 ist 

is a comma-separated list of colons, each colon 
representi ng one di mension. Thus the rank of the array 
is equal to the number of colons specified. 
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allocatable (statement and attribute) 


The syntax of the allocatable statement is: 
allocatable [::] array-name [ (defered-shape-spec-list) ] 

[,array-name [ (deferred-shape-spec-list) ] ] ... 

If (deferred-shape-spec-list) is omitted from the allocatable 
statement, it must be specified in another declaration statement, such as 
a type or dimension statement. 

The allocated intrinsic inquiry function is described in 
"ALLOCATED(ARRAY)" on page493. Itcan be used to determine 
whether an allocatable array is currently allocated. 

The allocatable attribute or statement is used to declare an array 
whose extents in all its dimensions will be specified when an allocate 
statement is executed at run-time; for this reason it is known as 
"deferred-shape". When an allocatable array is declared, only its name 
and rank are given. 

The following statements declare a rank-one deferred-shape array and 
illustrate its use with different extents. 

! mis is deferred shape. 

INTEGER, ALLOCATABLE :: mis(:) 

ALLOCATE (mis (3)) ! Allocate 3 elements. 

DEALLOCATE (mis) ! mis is no longer allocated 

ALLOCATE (mis (-n:n)) ! Allocate with different extent 

ALLOCATE and DEALLOCATE 

See "Allocatable arrays”on page 59 for more information about 
allocatable arrays and the conditions applying to their use. 

Array pointers provide a more general mechanism for the manipulation 
of deferred-shape arrays; see "Array pointers” on page 59. 
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Syntax 


ALLOCATE 

Provides storage space for allocatable arrays and pointer targets. 

allocate (alIocation-list[, stat= scalar-integer-variable]) 
allocation-list 

is a comma-separated list of allocation, 
al location 

is allocate-object [ (allocate-shape-spec-list) ]. 
allocate-object 

is variable-name or derived-type-component. Each 
allocate-object must bean allocatable array or a 
pointer. 

all ocate-shape-spec-l ist 

is a comma-separated list of allocate-shape-spec. 
allocate-shape-spec 

is [lower-bound : ] upper-bound. The bounds in an 
allocate-shape-spec must be scalar integer expressions. 

STAT=scalar-integer-variable 

returns the error status after the statement executes. If given, it 
is set to zero if the statement successful ly executed, and to one 
of the following nonzero values if an error occurred: 

1 Error occurred after the array was allocated; for 
example, an attempt to allocate a previously 
allocated array. 

2 Dynamic memory allocation failure (memory not 
available) or invalid size (array too large). 

3 E rrors of both types 1 and 2 have occurred. This 
kind of an error can only occur if the same 
ALLOCATE statement is used to allocate more 
than one array, and both kinds of errors occur. 

If there is no sealar-integer-variable, the occurrence of an error 
causes the program to terminate. 
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ALLOCATE 


The allocate statement creates space for allocatable arrays and 
targets for variables (scalars or arrays) with the pointer attribute. The 
allocate and deallocate statements give the user the ability to 
manage space dynamically at execution time. 

For allocatable arrays, an error occurs when an attempt is made to 
allocate an already allocated array or to deallocate an array that is not 
allocated. The allocated intrinsic function may be used to determine 
whether an allocatable array is allocated. 

A pointer can be associated with a target, either with the pointer 
assignment statement or by use of the allocate statement. It is not an 
error to allocate an already associated pointer; its old target connection 
is replaced by a connection to the newly allocated space. However, if the 
previous target was allocated and no other pointer became associated 
with it, the space is no longer accessible. 

I n thefollowing example, a complex array with the pointer attribute is 
declared. Target space is allocated to it at run-time, the amount being 
determined by two integer values read in. Later in the program, the 
space is recovered by use of the deallocate statement. 

COMPLEX, POINTER :: hermitian (:, :) 

READ *, m, n 

ALLOCATE (hermitian (m, n) ) 

DEALLOCATE (hermitian, STAT = ierr) 

I n the next example, a real allocatable array is declared. The amount of 
space allocated to it depends on how much is available. 

! Rank-2 allocatable array 
REAL, ALLOCATABLE :: intense (:,:) 

CALL init_i_j(i, j) 

DO 

ALLOCATE (intense (i, j), STAT = ierr4) 

! ierr4 will be positive if there is not enough space to 
! allocate this array 
IF (ierr4 == 0) EXIT 
i = i/2; j = j/2 
END DO 

The derived type node in the next example is the basis of a binary tree 
structure. It consists of a real value component (vai) and two pointer 
components, left and right, both of type node. The variable top (of 
type node) is declared, and space is allocated for targets for the pointers 

top%left and top%right. 


250 


Chapter 10 



HP Fortran statements 

ALLOCATE 


Related statements 

Related concepts 


The allocate and deallocate statements and pointer variables of 
type node make it possible to allocate space for nodes in such a tree 
structure, traverse it as required, and then recover the space when it is 
no longer needed. 

TYPE node 
REAL val 

TYPE(node), POINTER :: left, right ! Pointer components 
END TYPE node 
TYPE(node) top 

ALLOCATE (top % left, top % right) 

I n thefinal example, two character arrays, para and key, are declared 
with the pointer attribute, para is allocated space; key is made to 
point at a section of para. 

! Pointers to char arrays 
CHARACTER, POINTER :: para (:), key(:) 

CALL init_k_m(k, m) 

ALLOCATE (para(1000)) 
key => para (k : k + m) 

allocatable (statement and attribute), deallocate, nullify, and 
pointer (statement and attribute) 

For related information, see the foil owing: 

• The descriptions of theALLOCATED and associated intrinsicsin 
Chapter 11, "I ntrinsic procedures,” on page475 

• "Pointers”on page47 
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ASSIGN 

Assigns statement label to integer variable. 

assign stmt-label to integer-variable 
stmt-label 

is the statement label for an executable statement or a format 
statement in the same scoping unit as the assign statement, 
integer-variable 

is a scalar variable of the default integer type. It cannot be a 
field of a derived type or record, or an array element. 

Once a variable is defined by an assign statement, it can be used in an 
assigned go to statement or as a format specifier in an input/output 
statement. It should not be used in any other way. 

A variablethat has been assigned a statement label can be reassigned 
another label or an integer value. If integer-variableis subsequently 
assigned an integer value, it no longer refers to a label. 

ASSIGN 20 TO lastl 
GO TO lastl 

! ASSIGN used with FORMAT statement 
ASSIGN 10 TO forml 
10 FORMAT(F6.1,2X,I5/F6.1 
READ(5,forml)sum,kl,avel 

20 ... 

go to (assigned) 

For related information, see the foil owing: 

• "Statement labels” on page 10 

• "Assigned go to statement” on page 115 


252 


Chapter 10 



HP Fortran statements 

automatic (extension) 


Syntax 

Description 


Examples 
Related statements 
Related concepts 


automatic (extension) 

Makes procedure variables and arrays automatic. 

automatic var-name-list 
var-name-list 

is a comma-separated list of names of variables and arrays to be 
declared as automatic Array names may be followed by an 
optional explicit-shape-spec. 

The automatic statement is provided as an HP extension. 

If a variable or array declared within a procedure is declared as 
automatic, then there is one copy of it for each invocation of the 
procedure. Space is allocated on entry to the procedure and deallocated 
on exit. This is also the default for variables that do not have the save or 
static attribute, unless the + save option has been specified. 

If it is required to have the same copy of a variable avail able to each 
invocation of the routine (for example, to keep a record of the depth of 
recursion), then the variable should have the save attribute. 

Note the foil owing: 

• The automatic statement may only be used within a procedure. 

• Local variables are automatic by default. 

• Arguments and function values are automatic. 

• Automatic variables may not appear in equivalence, data or save 
statements. 

• The automatic attribute is not the same as automatic arrays and 
automatic character stri ngs. 

AUTOMATIC r, s, u, v, w(10) 

save and static 

For information about automatic and static variables, refer to the 
HP Fortran Programmer's Guide. 
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BACKSPACE 

Positions file at preceding record. 

The syntax of the backspace statement can take one of two forms: 

• Short form: 

backspace integer-expression 

• Long form: 

backspace ( io-spedfier-list ) 
integer-expression 

is the number of the unit connected to a sequential file, 
io-specifier-list 

is a list of the foil owing comma-separated I/O specifiers: 
[unit=] unit 

specifies the unit connected to an external file opened 
for sequential access, unit must bean integer 
expression that evaluates to a number greater than 0. 
If the optional keyword unit= is omitted, unit must be 
the first item in io-specifier-list. 

ERR=stmt-label 

specifies the label of an executable statement to which 
control passes if an error occurs during statement 
execution. 

iosTAT=integer-variable 

returns the I/O status after the statement executes. If 
the statement executes successfully, integer-variableis 
set to zero. If an error occurs, it is set to a positive 
integer that indicates which error occurred. 

The backspace statement causes the external file connected to unit to 
be positioned just before the preceding record of the file. The file must be 
connected for sequential access. 
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Examples 


Related statements 
Related concepts 


The foil owing statement causes the file connected to unit 10 to be 
positioned just before the preceding record: 

BACKSPACE 10 

The foil owing statement causes the file connected to unit 17 to be 
positioned just before the preceding record. If an error occurs during the 
execution of the statement, control passes to the statement at label 99, 
and the error code is returned in ios: 

BACKSPACE (17, ERR=99, IOSTAT=ios) 

ENDFILE, OPEN, and REWIND 

For information about I/O concepts, seeChapter 8, "I/O and file 
handling," on page 171, which lists example programs that use I/O. For 
information about I/O formatting, seeChapter 11, "I ntrinsic procedures," 
on page 475. 
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BLOCK DATA 

I introduces a block data program unit. 

block data [ block-data-name] 
block-data-name 

is an optional name. If a name is given in the end block data 
statement terminating a block data program unit, it must be the 
same as the block-data-name given in the block data 
statement introducing the program unit. 

A block data program unit is used to give initial values to variables in a 
named common blocks by means of data statements and must start with 
a block data statement. The block data program unit is an obsolescent 
feature of Fortran 90 and is effectively superseded by the module, as 
described in "Modules"on page 161. 

As an extension, HP Fortran allows blank—or unnamed—common 
blocks to be initialized. 

The following block data program unit gives initial values to variables in 
the common blocks cbi and cb2. All variables in each common block are 
specified completely. 

BLOCK DATA 

REAL b(4) DOUBLE PRECISION z(3) 

COMPLEX c 

COMMON /cbl/c,a,b /cb2/z,y 

DATA b, z, c /1.0, 1.2 ,2*1.3, 3*7.654321D0, (2.4,3.76)/ 

END 

COMMON, DATA, and END 

The structure and syntax of the block data program unit is described in 
"Block data program unit" on page 169. 
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buffer in (extension) 


NOTE 

Syntax 


Description 


Examples 


buffer in (extension) 

Provided for compatibility with the buffer in Cray statement. 

Asynchronous I/O with the BUFFER IN statements is not supported. HP 
Fortran 90 V2.0 supports these statements for synchronous I/O only. 

buffer in (unit, mode) (begin-loc, end-loc) 
unit 

is a unit identifier (integer expression). 

mode 

is ignored, 
begin-loc, end-loc 

are symbolic names of the variables, arrays, or array elements 
that mark the beginning and end locations of the BU FFER I N 
operation, begin-loc and end-loc must be either elements of a 
single array (or equivalenced to an array) or members of the 
same common block. 

The BUFFER IN statement is an HP Fortran extension that provides 
compatibility with the Cray BUFFER IN feature. The statement causes data 
to be transferred while allowing any subsequent statements to execute 
concurrently. 

The BUFFER IN statement is provided as a porting aid for existing Cray 
code; it typically will not produce superior performance compared to 
conventional Fortran 90 I/O methods. 

• Other Fortran I/O statements (i.e., READ, WRITE, PRINT, ACCEPT, and 
TYPE) cannot be used on the same unit as the BUFFER IN statement. 
Mixing the standard Fortran 90 1/O operations with BUFFER IN on the 
same logical unit number can confuse the input stream (READ) or corrupt 
the data file (WRITE). 

• The BACKSPACE statement cannot be used with files that are capable of 
being transferred by the BUFFER IN statement. Such files are referred to 
as pure-data (unblocked) files. 

The following program shows how to use the BUFFER IN and BUFFER OUT 
statements. The program must be compiled with the -Hautodbl option; see 
"Option Descriptions" on page 576. 
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PROGRAM bufferedloTest 

! buffered i/o example: compile with lautodbl 
INTEGER a(10) 

OPEN ( UNIT = 7, NAME = 'test.dat', FORM = 'UNFORMATTED' ) 
a = (/ (i,i=l,10) /) ! initialize the array A 


BUFFER OUT 

( 7, 

0 ) 

( a, a(10) ) 

! write out A twice 

CALL unit 

( 7 

) 



BUFFER OUT 

( 7, 

0 ) 

( a, a(10) ) 



CALL unit ( 7 ) 

! now position the file 40 bytes (5 integer values) into the 
file 

CALL setpos (7, 5 ) 

! read the remainder of the 1st record, and half of the second 
BUFFER IN ( 7, 0 ) (a, a (10) ) 

WRITE (6,*) a 
CLOSE (7) 

END PROGRAM bufferedloTest 
BUFFER OUT 
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NOTE 

Syntax 


Description 


Examples 


buffer out (extension) 

Provided for compatibility with Cray buffer out statement. 

Asynchronous I/O with the BUFFER OUT statements is not supported. HP 
Fortran 90 V2.0 supports these statements for synchronous I/O only. 

BUFFER OUT (unit, mode) (begin-loc, end-loC) 

unit 

is a unit identifier (integer expression). 

mode 

is ignored, 
begin-loc, end-1 oc 

are symbolic names of the variables, arrays, or array elements 
that mark the beginning and end locations of the BU FFER I N 
operation, begin-loc and end-1 oc must be either elements of a 
single array (or equivalenced to an array) or members of the 
same common block. 

The BUFFER OUT statement is an HP Fortran extension that provides 
compatibility with the Cray BUFFER OUT feature. The statement causes data 
to be transferred while allowing any subsequent statements to execute 
concurrently. 

The BUFFER OUT statement is provided as a porting aid for existing Cray 
code; it typically will not produce noticeably superior performance 
compared to conventional Fortran 90 I/O methods. In fact, the BUFFER OUT 
statement will always be slightly slower than unformatted fixed record 
length 1/O. 

• Other Fortran I/O statements (for example, READ, WRITE, PRINT, 
ACCEPT, and TYPE) cannot be used on the same unit as the BUFFER OUT 
statement. Mixing the standard Fortran 90 1/O operations with 
BUFFER OUT on the same logical unit number can confuse the input 
stream (READ) or corrupt the data file (WRITE). 

• The BACKSPACE statement cannot be used with files that are capable of 
being transferred by the BUFFER OUT statement. Such files are referred 
to as pure-data (unblocked) files. 

For an example of buffer in, see "buffer in (extension)” on page 257. 
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Related statements buffer in 
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Syntax 


byte (extension) 

Declares entities of type integer. 

byte [[, attrib-list] ::] entity-list 
attrib-list 

is a comma-separated list of oneor more of the foil owing 
attributes: 


ALLOCATABLE 

INTRINSIC 

PRIVATE 

DIMENSION 

OPTIONAL 

PUBLIC 

EXTERNAL 

PARAMETER 

SAVE 

INTENT 

POINTER 

TARGET 


If attrib-list is present, it must be followed by the 
double colon. For information about individual 
attributes, see the corresponding statement in this 
chapter. 

entity-list 

is a list of entities, separated by commas. Each entity takes the 
form: 


name [( array-spec )] [= initialization-expr] 

where: 

name 

is the name of a variable or function 
array-spec 

is a comma-separated list of dimension bounds 
initialization-expr 

is a integer constant integer expression. If 
initialization-expr is present, entity-list must be 
preceded by the double colon. 
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The byte statement is an H P extension that is used to declare the 
properties of entities. The entities can take values that are whole 
numbers and can be represented in one byte. It is equivalent to the 

integer (kind=1) statement. 

The byte statement is constrained by the rules for all type declaration 
statements, including the requirement that it precede all executable 
statements. N ote, however, that the byte statement does not have a ki nd 
parameter. 

The following arevalid declarations: 

BYTE i, j 
BYTE : : k 

BYTE, PARAMETER : : :.m:.L = V2C 

! use an array constructor to initialize an array 
BYTE, DIMENSION(4) :: bvec=(/l,2,3,4/) 

! use slashes as initialization delimiters, an HP extension 
BYTE b/12/, bb/27/ ! note, no double colon 


INTEGER 

For related information, see the foil owing: 

• ‘Type declaration for intrinsic types” on page24 

• "Implicit typing" on page 28 

• "Array declarations"on page54 

• "Array constructors" on page 71 

• "E xpressi ons" on page 80 
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Syntax 


Description 


CALL 

I nvokes a subroutine. 

call subr-name[ ([ subr-act-arg-spec-list ])] 
subr-name 

is the name of the subroutine being invoked, 
actual-argument-list 

is a comma-separated list of entities of the form: 

[keyword =] actual-argument 

actual-argument 

is one of the following: 

• expressi on 

• variable 

• procedure-name 

• * label or & label 

keyword 

is oneof the dummy argument names of the subroutine being 
invoked. If any keyword is specified, the subroutine interface 
must be explicit. 

A call statement is used to invoke (call) a subroutine, and to specify 
actual arguments, if any. Execution of the subroutine begins with the 
first executable statement. Thefollowing sequence of events occurs when 
a call statement executes: 

1 Actual arguments that are expressions are evaluated. 

2 The actual arguments are associated with the corresponding dummy 
arguments. 

3 Control transfers to the subroutine being called, and thesubroutine 
executes. 
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4 Control returns from the subroutine, normally to the statement 
following the call statement, or to a statement label indicated by an 
alternate return argument—* label or slabel. (The & label form is 
provided as a compatibility extension and can be used in fixed source 
form only.) 

A subroutine can call itself, directly or indirectly; in this case the 
keyword recursive must be specified in the subroutine statement of 
the subroutine definition. 

The %val and %ref built-in functions are provided as H P extensions. 
They can be used to change argument-passing conventions calling a 
routine written in another language. 

The only subroutine invocation other than by the call statement in 
Fortran 90 is through "defined assignment", where a defined type 
assignment operator that has been defined by means of a subroutine is 
used. 

! Interface for subroutine draw 
INTERFACE 

SUBROUTINE draw (x_start, y_start, x_end, y_end, form, scale) 
REAL x_start, y_start, x_end, y_end 
CHARACTER (LEN =6), OPTIONAL :: form 
REAL, OPTIONAL :: scale 
END SUBROUTINE draw 
END INTERFACE 

! References to draw 

! arguments given by position; optional argument scale omitted 
CALL draw (5., -4., 2., .6, "DASHED") 

! arguments given by keyword; optional argument form omitted 
CALL draw (scale=.4, x_end=0., y_end=0., x_start=.5, y_start=.3) 

INTERFACE and SUBROUTINE 

For related information, see the foil owing: 

• "Recursive reference" on page 131 

• "Referencing a subroutine" on page 130 

• "Arguments" on page 139 

• "%VAL and %REF built-in functions"on page 148 

• "Defined assignment"on page 157 
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Syntax 


Description 


CASE 

M arks start of statement block in a CASE construct. 


case ( case-selector ) [ construct-name ] 
case-sel ector 

is a comma-separated list of ranges of values that are 
candidates for matching against the case index specified by the 
select case statement. E ach item i n the I ist can take one of 
the foil owing forms: 

• case-value 

• low: 

• :high 

• low:high 

• DEFAULT 

where: 

case-value, low, and high 

are scalar initialization expressions of type integer, 
character, or logical 

DEFAULT 

indicates the statement block to execute if none of the 
other case statements in the case construct produces 
a match. 


construct-name 

is the name given to the case construct. 

The case statement is used in a case construct to mark the start of a 
statement block. The case construct can consist of multiple blocks; at 
most, one is selected for execution. Selection is determined by comparing 
the case index produced by the select case statement to the case- 
selector in each case statement. I f a match is found, the statement block 
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under the matching case-selector executes. A match between the case 
index (c) and case-selector is determined for each form of case-selector, as 
follows: 

case-value 

For integer and character types, a match occurs if c . eq . case- 
value. 

For logical types, a match occurs if c .eqv. case-value 

low: 

For integer and character types, a match occurs if c . ge . low. 

:high 

For integer and character types, a match occurs if c . le . high, 
low : high 

For integer and character types, a match occurs if c . ge . low 
.and . c . le . high. 

DEFAULT 

For integer, character, and logical types, a match occurs if no 
match is found with any other case-selector and default is 
specified as a case-selector. 

If case default is not present and no match is found with any of the 
other case statements, none of the statement blocks within the case 
construct executes and execution resumes with the first executable 
statement following the end select statement. 

At most only one default selector can appear within a case construct. 

Each case statement must specify a unique value or range of values 
within a particular case construct. Only one match can occur, and only 
one statement block can execute. 

All case-selectors and the case index within a particular case construct 
must be of the same type: integer, character, or logical. However, the 
lengths of character types can differ. 

The colon forms—low:, : high, or low: high—are not permitted for a 
logical type. 

Although putting the case statements in order according to range may 
improve readability, it is not necessary for correct or optimal execution of 
the case construct. I n particular, default can appear anywhere among 
the case statements and need not be the last. 
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Examples 


Related statements 
Related concepts 


case statements inside a named case construct need not specify 
construct-name; but if they do, the name they specify must match that of 

the SELECT CASE. 

A case statement can have an empty statement block. 

The following example considers a person's credits and debits and prints 
a message indicating whether a resulting account balance will be 
overdrawn, empty, uncomfortably small, or sufficient: 

INTEGER :: credits, debits 

SELECT CASE (credits - debits) 

CASE (:-1) 

PRINT *, ’OVERDRAWN’ 

CALL TRANSFERFUNDS 
CASE (0) 

PRINT *, ’NO MONEY LEFT’ 

CASE (1:50) 

PRINT *, ’BALANCE LOW’ 

CASE (51:) 

PRINT *, ’BALANCE OKAY’ 

END SELECT 

select case and end (construct) 

The case construct is descri bed i n "CASE construct" on page 105. 
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CHARACTER 

Declares entities of type character. 

character [ char-selactor ] [[, attrib-list] ::] entity-list 
char-sel ector 

specifies the length and kind of the character variable. It takes 

one of the foil owing forms: 

• ( [len= ] Ien-spec[, KiND=kind-param]) 

• (len-spec, [kind=] kind-param) 

• (KiND=kind-param[, len=I en-spec]) 

• *len-const [, ] 

• *(len-spec[) ,] 

where kind-param (if specified) must be 1, the default; 
len-spec is either an asterisk (*) or a specification 
expression; and len-const is an integer constant. I n the 
last form, len-param is enclosed in parentheses, and 
the optional comma may be included only if the double 
colon does not appear in the type declaration 
statement. If len-spec evaluates to a negative value, a 
zero-length string is declared. If len-spec is unspecified, 
the default is 1. 


attrib-list 

is a list of one or more of the foil owing attributes, separated by 
commas: 


ALLOCATABLE 

INTRINSIC 

PRIVATE 

DIMENSION 

OPTIONAL 

PUBLIC 

EXTERNAL 

PARAMETER 

SAVE 

INTENT 

POINTER 

TARGET 
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Description 


Examples 


If attrib-list is present, it must be followed by the 
double colon. For information about individual 
attributes, see the corresponding statement in this 
chapter. 

entity-list 

is a list of entities, separated by commas. Each entity takes the 
form: 


name[(array-spec)][*len-spec][= initialization-expr] 

where name is the name of a variable or function, 
array-spec is a comma-separated list of dimension 
bounds, len-spec is either an asterisk (*) or a 
specification expression, and initialization-expr is a 
character constant expression. If initialization-expr is 
present, entity-list must be preceded by the double 
colon. 

The character statement isused to declare the length and properties of 
character data. It is constrained by the rules for all type declaration 
statements, including the requirement that it precede all executable 
statements. 

To indicatethat the length of a character can vary, you may use an 
assumed character length parameter by specifying an asterisk (*) for 
len-param. The asterisk may be used only when doing the foil owing: 

• Declaring the type of a function. Thefunction must not bean internal 
or module function, nor must it be array-valued, pointer-valued, or 
recursive. 

• Declaring a dummy argument of a procedure. 

• Declaring a named constant (seethe parameter statement). 

The following are valid declarations: 

CHARACTER cl, c2 

CHARACTER(LEN=80) :: text (0:25) 

CHARACTER(2, 1), PARAMETER :: limit='ZZ' 

! initialize an array, using an array constructor 
CHARACTER(4) :: response (3) = (/"Yes.", "No!!", "Huh?"/) 

! use slashes as initialization delimiters, an HP extension 
CHARACTER*10 cl/'Tom'/,c2/'Jones'/ ! note, no double colon 
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The following are valid uses of the assumed length parameter: 

CHARACTER(*) dummy_arg_name 

CHARACTER(*), PARAMETER :: hello="Hi Sam" 

CHARACTER(LEN=*), PARAMETER :: hello="Hi Sam" 

Assuming that c is an ordinary variable and not the dummy argument to 
a procedure, the following declaration is an illegal use of the assumed 
length parameter: 

CHARACTER*(*) c ! illegal 

For related information, see the foil owing: 

• 'Type declaration for intrinsic types" on page24 

• "I mplicit typing" on page 28 

• "Character strings as automatic data objects" on page 37 

• "Array declarations"on page54 

• "Array constructors" on page 71 

• "E xpressi ons" on page 80 

• "LEN(STRING)"on page539 
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Syntax 


CLOSE 

Terminates file connection. 

close ( i o-specifier-l i st ) 
i o-specifier-list 

is a list of the foil owing comma-separated I/O specifiers: 
[uNiT=]unit 

specifies the unit connected to an external file, unit 
must be a positive integer-valued expression. If the 
optional keyword unit= is omitted, unit must be the 
first item in io-specifier-list. 

ERR=stmt-label 

specifies the label of the executable statement to which 
control passes if an error occurs during statement 
execution. If neither iostat= or err= is specified and 
an error occurs, the program aborts and a system error 
message is issued, stmt-label must be in the same 
scoping unit as the close statement with the err= 
specifier. 

iosTAT=integer-variable 

returns the I/O status after the statement executes. If 
the statement executes successfully, integer-variableis 
set to zero. If an error occurs, it is set to a positive 
integer that indicates which error occurred. If neither 
iostat= or err= is specified and an error occurs, the 
program aborts and a system error message is issued. 

STATUs=character-expression 

specifies thestateof thefileafter it is closed, character- 
expression can be one of the foil owing arguments: 

'keep 1 Preserve the file after it is closed (default). 

1 delete ' Do not preserve the file after it is closed. 
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ThesTATUs= specifier is ignored if thefilewasopened as a 
scratch file. See "open" on page 379 for a description of the 
OPEN statement. 

The close statement closes the file whose unit number was obtained 
from an open statement. A close statement must contain a unit 
number and at most one each of the other I/O specifiers. 

A close statement need not be i n the same program unit as the open 
statement that connected thefiletothespecified unit. If a close 
statement specifies a unit that does not exist or has no file connected to 
it, no action occurs. 

The following examples illustrate different uses of the close statement. 
I n the first example, the close statement closes the file connected to 
unit 10; after it is closed, the file will continue to exist, unless it was 
opened with the status= ' scratch ' specifier: 

CLOSE (10) 

I n the next example, after the file connected to unit 6 is closed, it will 
cease to exist: 

CLOSE(UNIT=6,STATUS^'DELETE') 

The foil owing code produces the same results as the previous example: 

CHARACTER(LEN=6) cstat 
cstat='delete' 

CLOSE(UNIT=6,STATUS=cstat) 

The foil owing example closes the file connected to unit 5. If an error 
occurs, control is transferred to the executable statement labeled 100, 
and the error code is stored in the variable ios: 

CLOSE(5,IOSTAT=ios,ERR=100) 

OPEN 

For information about I/O concepts, seeChapter 8, "I/O and file 
handling," on page 171, which also lists example programs that use I/O. 
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Syntax 


Description 


COMMON 

Specifies common blocks. 

common [/ [ [common-block-name] ]/] object-list 
[, ] / [common-block-name] / object-list] . . . 
com mon - bl ock- na me 

is the name of a labeled common block, 
object-list 

is a comma-separated list of scalar variables, arrays, records, 
and derived-type objects. If an array is specified, it may be 
followed by an explicit-shape specification expression. 

The common statement defines one or more storage areas to be shared by 
different program units. It also identifies the objects—that is, variables, 
arrays, records, and derived-type objects—to be stored in those areas. 
Objects in common that are shared by different program units are made 
accessi bl e by storage associ ati on. 

Each object following a common-block name is declared to be in that 
common block. If/common-block-n a me^ is omitted, all objects in the 
corresponding object-list are specified to be in blank common. It is also 
possible to declare variables in blank common by specifying two slashes 
without common-block-name. Consider thefollowing examples: 

IDeclare variables a, b, c in blank common. 

COMMON a, b, c 

! Declare pay and time in blank common, 

! and red in the named common block color. 

COMMON pay, time, /color/red 

! Variables al and a2 are in common block a; array x and variable 
! are in blank common; and variable d is in common block c 
COMMON/a/al,a2,//x(10) ,y,/c/d 

Any common block name or blank common specification can appear more 
than once in one or more common statements within the same program 
unit. The variable list following each successive appearance of the same 
common block name is treated as a continuation of the list for that 
common block name. For example, thefollowing common statements: 

COMMON a,b,c /x/y,x,d //w, r 

COMMON /cap/hat,visor, //tax, /x/o,t 
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are equivalent to: 

COMMON a,b,c,w,r,tax 
COMMON /x/y,x,d,o,t 
COMMON /cap/hat,visor 

U nlike named common blocks, blank common can differ in size in 
different scoping units. However, blank common cannot be initialized. 

As an extension, HP Fortran saves all common blocks in static memory. 

The foil owing restrictions apply to the use of common blocks: 

• All common block names must be distinct from subprogram names. 

• The size of a named common block must bethesamein all program 
units where it is declared. Note, however, that the size of blank 
common can differ. 

• The foil owing data items must not appear in a common statement: 

- Dummy arguments in a subprogram 

- Functions, subroutines, or intrinsic functions 

- Pointees declared by Cray-style pointers 

- Variables accessible by use association 

- Automatic entities, including automatic character strings 

- Allocatable arrays 

• Derived-type objects may appear in common if they have been defined 
with the sequence attribute. 

• A variable can only appear in one common statement within a 
program unit. 

• Zero-sized common blocks are allowed. Zero-sized common blocks 
with the same name are storage associ ated. 

• Array bounds in a common statement must be constant specification 
expressions. 

• A pointer may appear in common if it has the same type, type 
parameter, and rank in every instance of that common block. 
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Initializing common blocks 

As an extension to the Standard, HP Fortran allows common blocks to be 
initialized outside of a block data program unit; for example, in a 
subroutine. However, notethat all data initialization for a given common 
block must occur in the same compilation unit. 

HP Fortran also allows blank—or unnamed—common to be initialized. 

Common block size 

The size of a common block is determined by the number and type of the 
variables it contains. In the following example, the common block 
my_biock takes 20 bytes of storage: b uses 8 (2 bytes per element) and 
arr uses 12 (4 bytes per element): 

INTEGER(2) b(4) 

INTEGER (4) arr(3) 

COMMON /cb/b, arr 

Data space within the common area for arrays b and arr shown in this 
example is allocated as follows: 


Bytes 

Common block variables 

0, 1, 2, 3 

b (1) , b (2) 

4, 5, 6, 7 

b(3) , b( 4 ) 

8, 9, 10, 11 

arr ( 1 ) 

12, 13, 14, 15 

arr (2) 

16, 17, 18, 19 

arr ( 3 ) 


Allocation common block storage 

Common block storage is allocated at link time. It is not local to any one 
program unit. 

Each program unit that uses the common block must include a common 
statement that contains the block name, if a name was specified. 
Variables assigned to the common block by the program unit need not 
correspond by name, type, or number of elements with those of any other 
program unit. The only consideration is the size of the common blocks 
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referenced by the different program units. Correspondence between 
objects in different instances of the same common block is established by 
storage associ ation. 

Note the foil owing for HP Fortran: when types with different alignment 
restrictions are mixed in a common block, thecompiler may insert 
padding bytes as necessary. 

The following example illustrates how the same common block can be 
declared in different program units with different variables but thesame 
size: 

! common declaration for program unit 1 

INTEGER i, j, k 

COMMON /my_block/ i, j, k 

! common declaration for program unit 2 
INTEGER n(3) 

COMMON /my_block/ n(3) 

The variables i, j, and k in program unit 1 share the same storage with 
the array n in program unit 2: i in program unit 1 matches up with n (l) 
in program unit 2, j with n ( 2 ) , and k with n (3). 

EQUIVALENCE 

For information about data alignment, seeTable 5 and "Alignment of 
derived-type objects” on page 44. 
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Syntax 


COMPLEX 

Declares entities of type complex. 


complex [kind-spa;] [[, attrib-list] ::] entity-list 
kind-spec 

is the kind type parameter that specifies the range and 
precision of theentities in entity-list, kind-spec takes the form: 

([KI N D=]kind-param) 

where kind-param represents the kind of both the real 
and imaginary parts of the complex number. It can be a 
named constant or a constant expression that has the 
integer value of 4 or 8. The size of the default type is 4. 

As an extension, kind-spec can take the form: 

*len-param 

where len-param is the integer 8 or 16 (default =8), 
which represents the size of the whole complex entity. 

attrib-list 

is a list of one or more of the foil owing attributes, separated by 
commas: 


ALLOCATABLE 

INTRINSIC 

PRIVATE 

DIMENSION 

OPTIONAL 

PUBLIC 

EXTERNAL 

PARAMETER 

SAVE 

INTENT 

POINTER 

TARGET 


If attrib-list is present, it must be foil owed by the double colon. 
For information about individual attributes, seethe 
corresponding statement in this chapter. 
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entity-list 

is a list of entities, separated by commas. Each entity takes the 
form: 

name [( array-spec )] [= initialization-expr] 

where name is the name of a variable or function, 
array-spec is a comma-separated list of dimension 
bounds, and initial i zati on-expr is a complex constant 
expression. If initiali zati on-expr is present, entity-list 
must be preceded by the double colon. 

The complex statement is used todeclarethe length and properties of 
data that are approximations to the mathematical complex numbers. A 
complex number consists of a real part and an imaginary part. A kind 
parameter (if specified) indicates the representation method. 

The complex statement is constrained by the rules for type declaration 
statements, including the requirement that it precede all executable 
statements. 

As a portability extension, H P Fortran allows the following syntax for 
specifying the length of an entity: 

name [*len] [ ( array-spec )] [= initiali zati on-expr] 

If array-spec is specified, *len may appear on either side of array-spec. If 
name appears with *len, it overrides the length specified by kind-spec. 

The following are valid declarations: 

COMPLEX x, y 
COMPLEX(KIND=8) :: z 

COMPLEX,PARAMETER :: 11 (2) = ( / (3.2, 0), (.04, -1.1)/) 

! initialize an array, using an array constructor 
COMPLEX, DIMENSION(2) :: & 

cvec=(/(2.294, 6.288E-2), (-1.0096E7, 0)/) 

! use slashes as initialization delimiters, an HP extension 

COMPLEX cx/ (2.294, 6.288E-2)/ ! note, no double colon 

! the following declarations are equivalent; the second uses the 

! HP length specification extension 

COMPLEX(KIND = 8) x 

COMPLEX(8) x*16 

DOUBLE COMPLEX 
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Related concepts 


For related information, see the foil owing: 

• 'Type declaration for intrinsic types” on page24 

• "Implicit typing" on page 28 

• "Array declarations"on page54 

• "Array constructors" on page 71 

• "E xpressi ons" on page 80 

• "KIN D(X)" on page 537 
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CONTAINS 


CONTAINS 

I introduces an internal procedure or a module procedure. 

CONTAINS 

The contains statement introduces an internal procedure or a module 
procedure, separating it from the program unit that contains it. The 
statement can be used in: 

• A main program, external subprogram, or module subprogram; in 
each case, it precedes one or more internal procedures. 

• A module, where it precedes any module procedures. 

When a contains statement is present, at least one subprogram must 
follow it. 

The first example illustrates contains introducing an internal 
subroutine. It also illustrates how the internal subroutine mechanism 
can provide an alternative to the FORTRAN 77 statement function 
mechanism. 

PRINT *, double_real(6.6) 

CONTAINS 

FUNCTION double_real (x); REAL x 
double_real = 2.0 * x 
END FUNCTION 

END 

The next example illustrates a main program with an internal procedure 
part. 

PROGRAM electric ! Program header 

REAL current ! Specification part 

current = 100.5 ! Execution part begins 

CALL compute_resistance( voltage, current, resistance ) 

CONTAINS ! Internal procedure part 

SUBROUTINE compute_resistance( v, i, r ) 

REAL i 
r = v / i 
END SUBROUTINE 
END PROGRAM electric 

Thethird example is of a modulethat contains a module subprogram, 
which in turn contains an internal subprogram. 
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MODULE one 
CONTAINS 

SUBROUTINE two(x) ! Module subprogram 

CONTAINS 

LOGICAL FUNCTION three(y) !Internal subprogram 

END FUNCTION three 
END SUBROUTINE two 
END MODULE one 

Related statements subroutine and function 

Related concepts For related information, see the foil owing: 

• "Program units"on page 122 

• "I nternal procedures” on page 135 

• "M odule program unit" on page 161 
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CONTINUE 


CONTINUE 

Establishes reference point within a program unit. 

CONTINUE 

The continue statement has no effect on program execution. Control 
passes to the next executable statement. The continue statement is 
generally used to mark a place for a statement label, especially when it 
occurs as the terminal statement of a FORTRAN 77-styleDO loop. 

count = 0 
DO 20 i = 1, 10 

count = count + i 
20 CONTINUE 
PRINT *, count 

DO 

For related information, see the foil owing: 

• "do construct” on page 107 

• "Flow control statements"on page 112 
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Syntax 

Description 


Examples 


Related statements 
Related concepts 


CYCLE 

I interrupts current iteration of a DO loop. 

cycle [ do-construct-name ] 
do-construct-name 

is the name of a do construct that must contain this cycle 
statement. 

The cycle statement is used to control the execution of a do loop. When 
it executes, it interrupts a currently executing loop iteration and passes 
control tothenext iteration, making the appropriate adjustments to the 
loop index. It may be used with either the do construct or the FORTRAN 
77-style do loop. 

A cycle statement belongs to a particular do loop. If do-construct-name 
is not given, the cycle statement resumes the immediately enclosing do 
loop. If do-construct-name is given, the cycle statement resumes an 
enclosing named do loop with the same name. 

The following example uses thecYCLE statement to control a bubble 
sort: 

LOGICAL :: swap 
INTEGER :: i, j 
outer: DO i = 1, n-1 
swap = .FALSE, 
inner: DO j = n, i+1, -1 

IF (a (j) >= a ( j-1)) CYCLE inner 
swap = .TRUE, 
atmp = a(j) 
a ( j ) = a ( j-1) 
a (j-1) = atmp 

END DO inner 

IF (.NOT. swap) EXIT outer 
END DO outer 

do and exit 

For related information, see the foil owing: 

• "do construct" on page 107 

• "Flow control statements”on page 112 
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DATA 


DATA 

I initializes program variables. 

data var-listl / val-listl / [ [, ] var-list2 / val-I i st2 /]... 
var-list 

is a comma-separated list of entities, including the following: 

• A variable name 

• An array name 

• An array triplet section; for example: 

• points(l:10:2) 

• An array element reference; for example: 

• scores(O) 

• A substring name; for example: 

• name(l:10) 

• An implied-DO loop; for example: 

• ((matrix(i,j),i=0,5),j=5,10) 

• An object of a derived type 

• A component of a derived-type object 
The foil owing cannot appear in var-list: 

• Pointer-based variables 

• Records and record field references. However, you can 
initialize a record's fields in the record's structure definition. 
See "record (extension)" on page 420. 

• Automatic objects, including automatic character strings 

• Dummy arguments 

• Allocatable arrays: that is, arrays declared with a specified 
rank, but no specified bounds within each dimension 
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Description 


• The result variable of a function 

• Objects made available by use or host association 

• Procedure names 


val-list 

is a list of constant values, separated by commas. Each constant 
in the list represents a value to be assigned to the corresponding 
variable in var-list. A constant valuecan be optionally repeated 
by precedi ng the constant with a repetition factor. The syntax of 
a repeated constant is: 

r*val 

where r is a positive integer specifying the number of 
times that val, the constant value, is to be specified. 

The data statement initializes variables local to a program unit before 
the program unit begins execution. I nitialization occurs as follows: 

The var-list is expanded to form a sequence of scalar variables, and the 
val-list is expanded to form a sequence of scalar constants. The number 
of items in each expanded sequence must be the same, and there must be 
a one-to-one correspondence between the items in thetwo expanded lists. 
The variables in the expanded sequence of var-list are initialized on the 
basis of the correspondence. 

If var-list contains an array name, the expanded sequence of constants 
must contain a constant for every element in the array. 

A zero-sized array or an implied-DO list with an iteration count of zeroin 
var-list contributes no variables to the expanded sequence of variables. 
However, a zero-length character variabledoes contributea variableto 
the list. 

If a constant is of any numeric or logical type, the corresponding variable 
can be of any numeric type. If an object is of derived type, the 
correspondi ng constant must be of the same type. I f the type of the 
constant does not agree with the type of the variable, type conversion is 
performed, as described in Table 14. 

Variables can be initialized with binary, octal, or hexadecimal constants. 

A variable or array element must not appear in a data statement more 
than once. If two variables share the same storage space through an 
equivalence statement, only one can appear in a data statement. If a 
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DATA 


substring of a character variable or other array element appears in a 
data statement, no overlapping substring (including the entire variable 
or array element) can appear in any data statement. 

The length of a character constant and the declared length of its 
corresponding character variable need not bethesame. If theconstant is 
shorter than the variable, blank characters are placed in the remaining 
positions. If theconstant is longer than the variable, theconstant is 
truncated from the right until it is the same length as the variable 

If a subscripted array element appears in var-list, then thesubscript 
must be a specification expression. 

data statements can be interspersed among executable statements. 
However, they initialize prior to runtime and, therefore, cannot be used 
as executable assignment statements. 

Fortran 90 extensions 

A variable of type other than integer may be initialized with a binary, 
octal, or hexadecimal constant. The data type for a constant is 
determined from the type of the corresponding variable. The size (in 
bytes) of the variable determines how many digits of the octal or 
hexadecimal constant are used. If theconstant lacks enough digits, the 
value is padded on the left with zeros. If the constant has too many 
digits, it is truncated on the left. 

An integer, binary, octal, or hexadecimal constant can initialize a 
character variableof length one, as long as the value of theconstant is in 
the range 0 to 255. 

The following data statement initializes integer, logical, and character 
variables: 

INTEGER i 

LOGICAL done 

CHARACTER(LEN=5) prompt 

DATA i, done, prompt/10, .FALSE., 'Next?'/ 

The next data statement specifies a repetition factor of 3 to assign the 
valueof 2 to all three elements of array i: 

INTEGER, DIMENSION(3) :: i 

DATA i/3*2/ 

The next data statement uses two nested implied-DO loops to assign the 
literal value x toeach element of an array of 50 elements, k (io, 5): 

CHARACTER, DIMENSION (10,5) :: k 

DATA ((k(i, j),i=l,10),j = l,5)/50*'X'/ 
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Related statements 

Related concepts 


BYTE, CHARACTER, COMPLEX, DOUBLE COMPLEX, DOUBLE PRECISION, 
INTEGER, LOGICAL, and REAL 

For related information, see the foil owing: 

• "Initialization expressions"on page90 

• "Assignment statement" on page 95 

• "I mplied-DO loop" on page 194 
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Syntax 


Description 


DEALLOCATE 

Deallocates allocatable arrays and pointer targets. 

deallocate (alloc-obj-Iist[, STAT=scalar-int-var]) 
al I oc-obj-l i st 

is a comma-separated list of pointers or allocatable arrays. 
STAT=scaI ar-i nt-var 

returns the error status after the statement executes. If given, it 
is set to a positive value if an error is detected, and to zero 
otherwise. If there is no status variable, the occurrence of an 
error causes the program to terminate. 

The deallocate statement deallocates allocatable arrays and pointer 
targets, making the memory availablefor reuse. A specified allocatable 
array then becomes not allocated (as reported by the allocated 
intrinsic), while a specified pointer becomes disassociated (as reported by 
the associated intrinsic). 

An error occurs if an attempt is made to deal locate an allocatable array 
that is not currently allocated or a pointer that is not associated. Errors 
in the operation of deallocate can be reported by means of the optional 
stat= specifier. 

You can deallocate an allocatable array by specifying the name of the 
array with the deallocate statement. You cannot deallocate a pointer 
that points to an object that was not allocated. 

Some or all of a target associated with a pointer by means of the 
allocate statement can also be associated subsequently with other 
pointers. However, it is not permitted todeallocatea pointer that is not 
currently associated with the wholeof an allocated target object. 

Deallocation of a pointer target causes the association status of any other 
pointer associated with all or part of thetarget to become undefined. 
When a pointer is deallocated, its association status becomes 
disassociated, as if a nullify statement had been executed. 
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DEALLOCATE 


Examples 


Related statements 
Related concepts 


The following example declares a complex array with the pointer 
attribute. The allocate statement allocates target space to the array at 
run-time; the amount is determined by the input values tothe read 
statement. Later in the program, the deallocate statement will 
recover the space. 

COMPLEX, POINTER :: hermitian (:, :) 

READ *, m, n 

ALLOCATE (hermitian (m, n)) 

DEALLOCATE (hermitian, STAT = ierr) 

ALLOCATABLE, ALLOCATE, NULLIFY, and POINTER 

For related information, see the foil owing: 

• "Pointers”on page47 

• "Allocatablearrays"on page59 

• The descriptions of theALLOCATED and associated intrinsics are 
described in Chapter 11, "I ntrinsic procedures,” on page 475. 
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decode (extension) 


decode (extension) 

I nputs formatted data from internal storage. 

decode (count, format, unit, io-specifier-list) [in-list] 
count 

is an integer expression that specifies the number of characters 
(bytes) to translate from character format to internal (binary) 
format, cnt must precede format. 

format 

specifies the format specification for formatting the data, format 
can be one of the following: 

• The label of a format statement containing the format 
specification. 

• An integer variable that has been assigned the label of a 
format statement. 

• An embedded format specification. 

format must be the second of the parenthesized items, 
immediately following count. Note that the keyword fmt= is not 
used. 

unit 

is the internal storage designator. It must be a scalar variable or 
array name. Assumed-size and adjustable-size arrays are not 
permitted. Note that char-var-nameis not a unit number and 
that the keyword unit= is not used. 

unit must be the third of the parenthesized items, immediately 
following format. 
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decode (extension) 


io-specifier-list 

is a comma-separated list of I/O specifiers. Note that the unit 
and format specifiers are required; the other I/O specifiers are 
optional. The following I/O specifiers can appear in io-specifier- 
list: 

ERR=stmt-label 

specifies the label of the executable statement to which 
control passes if an error occurs during statement 
execution. 

iosTAT=integer-variable 

returns the I/O status after the statement executes. If 
the statement successfully executes, integer-variable is 
set to zero. If an end-of-file record is encountered 
without an error condition, it is set to a negative 
integer. If an error occurs, integer-variableis set to a 
positive integer that indicates which error occurred. 

in-list 

is a comma-separated list of data items for input. The data 
items can include expressions and implied-DO lists. 

The decode statement is an HP extension that is provided for 
compatibility with other versions of Fortran. The internal-1/O 
capabilities of thestandard read statement provide similar functionality 
and should be used to ensure portability. 

The decode statement translates formatted character data into its 
binary (internal) representation. 

The following example program illustrates the decode statement: 

PROGRAM decode_example 

CHARACTER(LEN=20) :: buf 

INTEGER i, j, k 

buf = 'XX1234 45 -12XXXXXX' 

DECODE (15, ' (2X,314,IX) ', buf) i, j, k 
! The equivalent READ statement is: 

! READ (buf, ' (2X, 314, IX) ' ) i, j, k 
PRINT *, i, j, k 
END PROGRAM decode_example 
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decode (extension) 

When compiled and executed, this program produces the foil owing 
output: 

1234 45 -12 

encode and read 

For related information, see the foil owing: 

• "I nternal files" on page 174 

• "Performing I/O on internal files"on page 176 

• "I mplied-DO loop" on page 194 

• "E mbedded format specification" on page 237 
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Syntax 


dimension (statement and attribute) 

Declares a variableto be an array. 

A type declaration statement with the dimension attribute is: 
type, dimension ( array-spec ) [ [, attrib-list ]::] entity-list 
type 

is a valid type specification (integer, real, logical, 
character, type (type-name ), etc.), 
array-spec 

is one of the following: 

• explicit-shape-spec-list 

• assumed-shape-spec-list 

• deferred-shape-spec-list 

• assumed-size-spec 

explicit-shape-spec 

is 

[lower-bound :] upper-bound 
lower-bound, upper-bound 
are specification expressions. 

assumed-shape-spec 
is 

[lower-bound] : 

deferred-shape-spec 
is 
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dimension (statement and attribute) 


assumed-size-spec 
is 

[explicit-shape-spec-list , ] [lower-bound :] * 

That is, assumed-size-spec is explicit-shape-spec-list with the 
final upper bound specified as *. 
attrib-list 

is a comma-separated list of attributes including dimension 
and optionally those attributes compatible with it, namely: 


ALLOCATABLE 

PARAMETER 

PUBLIC 

INTENT 

POINTER 

SAVE 

OPTIONAL 

PRIVATE 

TARGET 


entity-list 

is 

object-name[ (array-spec) ] 

If (array-spec) is present, it overrides the (array-spec) given 
with the dimension keyword in attribute-list; see the example 
below. 

The syntax of the dimension statement is: 

dimension [::] array-name (array-spec) 

[, array-name (array-spec) ]... 

An array consists of a set of objects called the array elements, all of the 
same type and type parameters, arranged in a pattern involving 
columns, and possibly rows, planes, and higher dimensioned 
configurations. The type of the array elements may be intrinsic or user- 
defined. I n H P Fortran, an array may have up to seven dimensions. The 
number of dimensions is called the rank of the array and is fixed when 
the array is declared. Each dimension has an extent that is the size in 
that dimension (upper bound minus lower bound plus one). Thesizeof an 
array is the product of its extents. The shape of an array is the vector of 
its extents in each dimension. Two arrays that have the same shape are 
said to be conformable. 
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Examples 


It is not necessary for the keyword dimension to appear in the 
declaration of a variable to give it the dimension attribute. This 
attri bute, as wel I as the rank, and possi bly the extents and the bounds of 
an array, may be specified in the entity declaration part of any of the 
following statements: 

• type declaration 

• DIMENSION 

• ALLOCATABLE 

• COMMON 

• POINTER 

• TARGET 

The array-spec (see Syntax, above) determines the category of the array 
being declared. "Array declarations” on page 54, describes these 
categories as: 

• Explicit-shape array 

• Assumed-shape array 

• Assumed-size array 

• Deferred-shape array 


! These 2 declaration statements are equivalent. 

REAL a (20,2), b (20,2), c (20,2) 

REAL, DIMENSION (20,2) :: a, b, c 

DIMENSION x(100), y(100) ! x and y are 1-dimensional 

! lower bounds specified for jj (if not given, they default to 1) 
INTEGER jj (0:100, -1:1) 

! 1 is a 4-dimensional, allocatable, deferred shape logical array 
LOGICAL 1 

ALLOCATABLE 1 (:,:,:,: ) 

COMPLEX s ! s has explicit shape and 

TARGET :: s(10,2) ! the target attribute 

DOUBLE PRECISION d 

! d has 5 dimensions and is declared in common 
COMMON /stuff/ d(2,3,5,9,8) 

! arrl is an adjustable array, arr2 an automatic array 
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SUBROUTINE calcfarrl, ibl, ib2) 

REAL, DIMENSION (ibl, ib2) :: arrl, arr2 

! arr3 is a deferred-shape array with the pointer attribute 
REAL, POINTER, DIMENSION(:,:) :: arr3 

! all three arrays have explicit shape; array specifier (10,10) 
! overrides specifier (10,20) for tb declaration only 
LOGICAL, DIMENSION(10,20) :: ta, tb(10,10), tc 

ALLOCATABLE, COMMON, POINTER, TARGET, TYPE, and the type 

declaration statements 

For related information, see the foil owing: 

• 'Type declaration for intrinsic types" on page24 

• Chapter 11, "I ntrinsic procedures,” on page475 

• The following array-inquiry intrinsics described in Chapter 11: 

- LBOUND 

- RESHAPE 

- SHAPE 

- SIZE 

- UBOUND 
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Syntax 


Description 


DO 

Controls execution of DO loop. 

[ construct-name : ] do [ label ] [ loop-control ] 
construct-name 

is the name given to the do construct. If construct-name is 
specified, an end do statement must appear at the end of the 
do construct and have the same construct-name 

label 

is the label of an executable statement that terminates the do 
loop. If you specify label, you can terminate the do loop either 
with an end do statement or with an executable statement; the 
terminating statement must include label. If you do not specify 
label, you must terminate the do loop with the end do 
statement. 

I oop-con trol 

is information used by the do statement to control the loop. It 
can takeoneof the following forms: 

• index = init, limit [, step] 

• while (logical-expression) 

• loop-control is omitted 

I n the first form, index is a scalar variable of type integer or 
real; init, limit, and step are scalar expressions of type integer or 
real. I n the second form, logical-expression is a scalar logical 
expression. I n the third form, loop-control is omitted. If you use 
the second or third form, you must terminate the do loop with 
the end do statement. 

The syntax of the do statement allows for the foil owing types of do loops: 

• Counter-controlled loop: a loop count is calculated that controls the 
number of times the block is executed, unless a prior exit occurs. A 
loop variable is incremented or decremented after each execution. 
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• While loop: a condition (logical-expression) is tested before each 
execution of the block; when it is false, execution ceases. An exit may 
occur at anytime. 

• I nfinite loop: thereis no loop-control; repeated execution of the block 
ceases only when an exit from the loop occurs. 

When label is present in the do statement, it specifies the label of the 
terminating statement of the do loop. Theterminating statement cannot 
be any of the following statements: 

• go to (unconditional) 

• go to (assigned) 

• if (arithmetic) 

• if (block) 

• ELSE or ELSE IF 

• END, END IF, END SELECT,Or END WHERE 

• RETURN 

• STOP 

• DO 

• Any nonexecutable statement 

Note, however, that theterminating statement can be an if (logical) or 
an end do statement. 

To maintain compatibility with some older versions of Fortran, you can 
usethe +onetrip compile-line option to ensure that every counter- 
controlled do loop in the program executes at least once. 

Extended-range DO loops 

Extended-range do loops—a compatibility extension—allow a program 
to transfer control outside the do loop's range and then back into the do 
loop. Extended-range do loops work as follows: if a control statement 
insidea do loop transfers control toa statement outside theDO loop, then 
any subsequent statement can transfer control back i nto the body of the 
do loop. 
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Examples 


For example, in the foil owing code, the range of the do loop is extended to 
include the statement goto 20, which transfers control back to the body 
of the do loop: 

DO 50 i = 1, 10 
20 n = n + 1 

IF (n > 10) GOTO 60 

50 CONTINUE ! normally, the range ends here 

60 n = n + 100 ! this is the extended range, 

GOTO 20 ! which extends down to this line 


The following do construct displays the integers 1 through 10: 

DO i = 1, 10 
WRITE (*, *) i 

END DO 

The next example is a FORTRAN 77-style do loop that does the same as 
the preceding example: 

DO 50 i = 1, 10 
WRITE (*, *) i 

50 CONTINUE 

The following do construct iterates 5 times, decrementing the loop index 
from 10 to 2: 

DO i = 10, 1, -2 
END DO 

The following is an exampleof a do while loop: 

DO WHILE (sum < 100.0) 

sum = sum + get_num(unit) 

END DO 

The following example illustrates the use of the exit statement to exit 
from a nested do loop. The loops are named to control which loop is 
exited. Note that loop-control is missing from both the inner and outer 
loops, which therefore can be exited only by means of one of the exit 
statements: 

outer:DO 

READ *, val 
new_val = 0 
inner:DO 

new_val = new_val + proc_val(val) 

IF (new_val >= max_val) EXIT inner 
IF (new_val == 0) EXIT outer 
END DO inner 
END DO outer 
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The next do construct never executes: 

DO i = 10, 1 
END DO 

Related statements continue, cycle, end (construct), and exit 

Related concepts For related information, see the foil owing: 

• "do construct” on page 107 

• "exit statement” on page 114 
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Syntax 


double complex (extension) 

Declares entities of type double complex. 

double complex [ [, attrib-list ] ::] entity-list 
attrib-list 

is a list of one or more of the foil owing attributes, separated by 
commas: 


ALLOCATABLE 

INTRINSIC 

PRIVATE 

DIMENSION 

OPTIONAL 

PUBLIC 

EXTERNAL 

PARAMETER 

SAVE 

INTENT 

POINTER 

TARGET 


If attrib-list is present, it must be followed by the 
double colon. For information about individual 
attributes, see the corresponding statement in this 
chapter. 

entity-list 

is a list of entities, separated by commas. Each entity takes the 
form: 

name [( array-spec )] [= initialization-expr] 
where: 
name 

is the name of a variable or function 
array-spec 

is a comma-separated list of dimension bounds 
initial izati on-expr 

is a complex constant expression. If initialization-expr 
is present, entity-list must be preceded by the double 
colon. 
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double complex (extension) 


The double complex statement is an H P Fortran extension that 
declares the properties of complex data that has greater precision than 
data of default type complex. Thetwo parts of a doublecomplex value are 
each a double precision value. 

The double complex statement is constrained by the rules for type 
declaration statements, including the requirement that it precede all 
executable statements. Note however, that the double complex 
statement does not have a kind parameter. 

The following arevalid declarations: 

DOUBLE COMPLEX x, y 

DOUBLE COMPLEX, PARAMETER :: 11 (2) = ( / (1.2, 0), (-1.01, 0.0009)/) 

! use an array constructor to initialize a double complex array 
DOUBLE COMPLEX, DIMENSION(2) :: dc_vec = & 

(/(2.294D-8, 6.288D-4), (-4.817D4, 0)/) 

! use slashes as initialization delimiters, an HP extension 
DOUBLE COMPLEX dcx/(2.294D-8, 6.288D-4)/ ! note, no double colon 

COMPLEX 

For related information, see the foil owing: 

• 'Type declaration for intrinsic types" on page24 

• "I mplicit typing" on page 28 

• "Array declarations"on page54 

• "Array constructors" on page 71 

• "E xpressi ons" on page 80 
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Syntax 


DOUBLE PRECISION 

Declares entities of type double precision. 

double precision [ [, attrib-list] ::] entity-list 
attrib-list 

is a list of one or more of the foil owing attributes, separated by 
commas: 


ALLOCATABLE 

INTRINSIC 

PRIVATE 

DIMENSION 

OPTIONAL 

PUBLIC 

EXTERNAL 

PARAMETER 

SAVE 

INTENT 

POINTER 

TARGET 


If attrib-list is present, it must be foil owed by the double colon. 
For information about individual attributes, seethe 
corresponding statement in this chapter, 
entity-list 

is a list of entities, separated by commas. Each entity takes the 
form: 

name [( array-spec )] [= i n i ti a I i zati on-expr ] 
where: 
name 

is the name of a variable or function 
array-spec 

is a comma-separated list of dimension bounds 
initiali zati on-expr 

is a real constant expression that can be evaluated at 
compiletime. If initialization-expr is present, entity-list 
must be preceded by the double colon. 
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Description 


Examples 


Related statements 
Related concepts 


The double precision statement is used to declare the properties of 
real data that has greater precision than data of default type real. By 
default, the double precision statement is equivalent to the 

real (kind=8 ) statement. 

The double precision statement is constrained by the rules for type 
declaration statements, including the requirement that it precede all 
executable statements. Note, however, that the double precision 
statement does not have a kind parameter. 

The following arevalid declarations: 

DOUBLE PRECISION x, y 

DOUBLE PRECISION, PARAMETER :: pi=3.1415927D0 

! use an array constructor to initialize a double precision array 
DOUBLE PRECISION, DIMENSIONS) :: dp_vec= & 

(/4.7D0, 5.2D0, 3.3D0, 2.9D0/) 

! use slashes as initialization delimiters, an HP extension 
DOUBLE PRECISION dpl/5.28D0/, dp2/72.3D0/ ! note, no double 

colon 

REAL 

For related information, see the foil owing: 

• 'Type declaration for intrinsic types” on page24 

• "I mplicit typing" on page 28 

• "Array declarations”on page54 

• "Array constructors" on page 71 

• "E xpressi ons" on page 80 
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Syntax 

Description 

Examples 


Related statements 
Related concepts 


ELSE 

Provides a default path of execution for IF construct. 

else [ construct-name ] 
construct-name 

is the name given to the if construct. If construct-name is 
specified, the same name must also appear in the if statement 
and in the end if statement. 

The else statement is used in an if construct to provide a statement 
block for execution if none of the logical expressions in the if and else 
if statements in the if construct evaluates to true. 

An if construct may contain (at most) one else statement. If present, it 
must follow all else if statements within the if construct. 

IF (a > b) THEN 
max = a 

ELSE IF (b > max) THEN 
max = b 
ELSE 

PRINT *, 'The two numbers are equal.' 

STOP 'Done' 

END IF 

else if, end if, and if (construct) 

See "if construct" on page 111. 
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ELSE IF 

Provides alternate path of execution for IF construct. 

else if (logical-expression) then [construct-name] 

logical-expressi on 

is a scalar logical expression, 
construct-name 

is the name given to the if construct. If construct-name is 
specified, the same name must also appear in the if statement 
and in the end if statement. 

TheELSE if statement executes the immediately following statement 
block, if the foil owing conditions are met: 

• None of the logical expressions in the if statement and any previous 
else if statements evaluates to true. 

• logical-expression evaluates to true. 

Branching to an else if statement is illegal. 

INTEGER temperature 

INTEGER, PARAMETER :: hot=l, cold=2 
IF (temperature == hot) THEN 

PRINT *, 'Turn down your thermostat.' 

ELSE IF (temperature == cold) THEN 
PRINT *, 'Turn up your thermostat.' 

ELSE 

PRINT *, 'Your thermostat is working OK.' 

END IF 

else, end if, and if (construct) 

See "if construct” on page 111. 
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Syntax 

Description 

Examples 

Related statements 
Related concepts 


ELSEWHERE 

I introduces optional ELSEWHERE block within a WHERE construct. 

ELSEWHERE 

The elsewhere statement introduces an elsewhere block, which is an 
optional component of the where construct. The elsewhere statement 
executes on the complement of the where condition. For additional 
information, see "where (statement and construct)" on page 466. 

WHERE( b .GE. 0.0 ) 

! Assign to sqrt_b only where logical array b is 0 or positive 
sqrt_b = SQRT(b) 

ELSEWHERE 

sqrt_b =0.0 ! Assign sqrt_b where b is negative 

END WHERE 

where and end (construct) 

For information about the where construct, see "Masked array 
assignment" on page 99. 
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encode (extension) 

Outputs formatted data to internal storage. 

encode (count, format, unit, io-specifier-list) [out-list] 
count 

is an integer expression that specifies the number of characters 
(bytes) to translate from character format to internal (binary) 
format, count must precede format. 

format 

specifies the format specification for formatting the data, format 
can be one of the following: 

• The label of a format statement containing the format 
specification. 

• An integer variablethat has been assigned the label of a 
format statement. 

• An embedded format specification. For information about 
embedded format specifications, see "Embedded format 
specification” on page 237. 

format must be the second of the parenthesized items, 
immediately following count. Note that the keyword fmt= is not 
used. 

unit 

is the internal storage designator. It must be a scalar variable or 
array name. Assumed-size and adjustable-size arrays are not 
permitted. Note that char-var-nameis not a unit number and 
that the keyword unit= is not used. 

unit must be the third of the parenthesized items, immediately 
following format, 
i o-specifi er-l ist 

is a comma-separated list of I/O specifiers. Note that the unit 
and format specifiers are required; the other I/O specifiers are 
optional. The following I/O specifiers can appear in io-specifi er- 
list: 
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ERR=stmt-label 

specifies the label of the executable statement to which 
control passes if an error occurs during statement 
execution. 

iosTAT=integer-variable 

returns the I/O status after the statement executes. If 
the statement successfully executes, integer-variable is 
set to zero. If an end-of-file record is encountered 
without an error condition, it is set to a negative 
integer. If an error occurs, integer-variableis set to a 
positive integer that indicates which error occurred. 

out-list 

is a comma-separated list of data items for output. The data 
items can include expressions and implied-DO lists (see 
"I mplied-DO loop" on page 194). 

The encode statement is a nonstandard feature of H P Fortran and is 
provided for compatibility with other versions of Fortran. The 
internal-1/O capabilities of the standard write statement provide 
similar functionality and should be used to ensure portability. 

The encode statement translates data from its internal (binary) 
representation into formatted character data. 

The following example program uses the encode statement to write to 
an internal file: 

PROGRAM encode_example 

CHARACTER(LEN=20) :: buf 

ENCODE (LEN(buf), ' (2X, 314, IX)', buf) 1234, 45, -12 
PRINT *, buf 

END PROGRAM encode_example 

When compiled and executed, this program outputs the foil owing (where 
b represents a blank character): 

bbi 2 3 4 bb4 5 b-12 bbbbb 

decode and write 
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encode (extension) 

For related information, see the foil owing: 

• "I nternal files"on page 174 

• "Performing I/O on internal files"on page 176 

• "I mplied-DO loop" on page 194 

• "E mbedded format specification" on page 237 
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END 


Syntax 


Description 


Examples 


END 

M arks the end of a program unit or procedure. 

end [keyword [name] ] 
keyword 

is one of the keywords block data, function, module, 
program, or subroutine. When the end statement is used for 
an internal procedure or module procedure, the function or 
subroutine keyword is required. 

name 

is the name given to the program unit. If name is specified, 
keyword must also be specified. 

The end statement is the last statement of a program unit (that is, a 
main program, function, subroutine, module, or block data subprogram), 
an internal procedure, or a module procedure. It is the only statement 
that is required within a program unit. 

The following example illustrates the use of the end statement to 
indicate the end of a main program. Notice that, even though the main 
program unit is given a name, the end program statement does not 
require it: 

PROGRAM main_prog 
END PROGRAM 

I n the next example, the end statement marks the end of an internal 
function and must therefore specify the keyword function. However, it 
is not required that the name, get_args, be also specified: 

FUNCTION get_args (argl, arg2) 

END FUNCTION get_args 

The following example uses theEND statement to indicate the end of a 
block data subprogram. Becausethe end statement specifies the 
program unit name, it must also specify the keyword block data: 

BLOCK DATA main_data 
END BLOCK DATA main_data 
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END 

BLOCK DATA, FUNCTION, MODULE, PROGRAM, and SUBROUTINE 

For information about program units, see "Program units” on page 122. 
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end (construct) 


Syntax 

Description 

Examples 

Related statements 
Related concepts 


end (construct) 

Terminates a CASE, DO, IF, or WHERE construct. 

end construct-keyword [construct-name] 
con stru ct-keyword 

is one of the keywords do, if, select case, or where. 
construct-name 

is the name given to the construct terminated by this statement. 

The end (construct) statement terminates a case, do, if, or where 
construct. If construct-name appears in the statement that introduces 
the construct, the same name must al so appear i n the end statement. I f 
no construct-name is given in the introducing statement, none must 
appear in the end statement. 

For examples of the end (construct) statement, see the descriptions of the 
do, if, select, or where statements throughout this chapter. 

DO, IF, SELECT CASE, and WHERE 

For related information, see the foil owing: 

• "M asked array assignment" on page 99 

• "Control constructs and statement blocks" on page 104 
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end (structure definition, extension) 


Syntax 


Description 


Related statements 


end (structuredefinition, extension) 

Terminates the definition of a structure or union. 

end record-keyword 
record-keyword 

is one of the keywords map, structure, or union. 

The end (record definition) statement is an HP Fortran extension that is 
used to delimit the definition of a structure (end structure) or a union 
within a structure (end union and end map). For more information, 
refer to "structure (extension)” on page 437. 

INTERFACE, STRUCTURE, and UNION 
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END INTERFACE 


END INTERFACE 

Terminates a procedure interface block. 

END INTERFACE 

I n Fortran 90, external procedures may be given explicit interfaces by 
means of procedure interface blocks. Such a block is always terminated 
by the end interface statement. 

The following makes the interface of function r_ave explicit, giving it 
the generic name g_ave. 

INTERFACE g_ave 

FUNCTION r_ave(x) 

! get the size of array x from module ave_stuff 
USE ave_stuff, ONLY: n 
REAL r_ave, x(n) 

END FUNCTION r_ave 
END INTERFACE 

INTERFACE 

I nterface blocks are described in "I nterface bl ocks" on page 152. 
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Syntax 


Description 

Examples 

Related statements 
Related concepts 


END TYPE 

Terminates a derived type definition. 

end type [type-name] 
type-name 

is the name of the derived type being defined, type-name is 
optional. If given, it must bethesame as the type-name 
specified in the type statement introducing the derived type 
definition. 

The end type statement terminates the definition of a derived type. 

Thefollowing is a simple example of a derived typewith two components, 

high and low: 

TYPE temp_range 

INTEGER high, low 
END TYPE temp_range 

type (definition) 

Derived types are described in "Derived types" on page 39. 
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ENDFILE 


Syntax 


Description 


ENDFILE 

Writes end-of-file record to file. 

The syntax of the endfile statement can take one of the foil owing 
forms: 

• Short form: 

endfile integer-expression 

• Long form: 

endfile (io-spedfier-list) 
integer-expression 

is the number of the unit connected to a sequential file, 
io-specifier-list 

is a list of the foil owing comma-separated I/O specifiers: 
[unit=] unit 

specifies the unit connected to a device or external file 
opened for sequential access, unit must bean integer 
expression that evaluates to a non negative number. If 
the optional keyword unit= is omitted, unit must be 
the first item in io-specifier-list. 

ERR=stmt-label 

specifies the label of the executable statement to which 
control passes if an error occurs during statement 
execution. 

iosTAT=integer-variable 

returns the I/O status after the statement executes. If 
the statement executes successfully, integer-variableis 
set to zero. If an error occurs, it is set to a positive 
integer that indicates which error occurred. 

The endfile statement writes an end-of-file record tothefile or device 
connected to the specified unit at the current position and positions the 
file after the end-of-file record. 
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ENDFILE 


An end-of-file record can occur only as the last record of a disk file. After 
execution of an endfile statement, thefileis positioned beyond the end- 
of-file record; any records beyond the current position are lost—that is, 
the file is truncated. 

Some devices (for example, magnetic tape units) can have multiple end- 
of-file records, with or without intervening data records. 

An end-of-file record can be written toa sequential fileonly. 

The following statement writes an end-of-file record to the file connected 
to unit 10: 

ENDFILE 10 

The following statement writes an end-of-file record to the file connected 
to unit 17. If an error occurs during the execution of the statement, 
control passes to the statement at label 99, and the error code is returned 
in ios: 

INTEGER :: ios 

ENDFILE (17, ERR=99, IOSTAT=ios) 

BACKSPACE, OPEN, and REWIND 

For information about I/O concepts, seeChapter 8, "I/O and file 
handling," on page 171, which also lists example programs that use I/O. 
For information about I/O formatting, seeChapter 9, "I/O formatting,"on 
page 205. 
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Syntax 


Description 


ENTRY 

Provides an additional external or module subprogram entry point. 

entry entry-name [ ([dummy-arg-list]) 

[result (result-name) ] ] 
entry-name 

is the name of the entry point (subroutine or function) defined 
by the entry statement. It must differ from the original 
subroutine or function name, and from other entry statement 
entry-names specified in the subprogram in which it appears, 
dummy-arg-list 

is a comma-separated list of dummy arguments for the 
subroutine or function defined by the entry statement. The 
same rules and restrictions apply as for subroutine dummy 
arguments or function dummy arguments, as appropriate, 
result-name 

is the result variablefor a function defined by an entry 
statement, result-name is optional; if not specified, the result 
variable is entry-name 

The result (result-name) clause can only be specified when 
the entry statement is included in a function subprogram. 

When an entry statement appears in a function subprogram, it 
effectively provides an additional function statement in the 
subprogram: execution starts from the entry statement when the entry- 
name is invoked (by being used). Similarly, an entry statement in a 
subroutine subprogram effectively provides an additional subroutine 
statement in the subprogram, and execution starts from the entry 
statement when the entry-name is called. 

The following restrictions apply to the entry statement: 

• The entry statement can appear in an external subprogram or a 
module subprogram; it may not appear in an internal subprogram. If 
the entry statement appears in a function subprogram, it defines an 
additional function; if it appears in a subroutine subprogram, it 
defines an additional subroutine. The entry points thus defined can 
be referenced i n the same way as for a normal function name or 
subroutine name, as appropriate. Execution starts at the entry 
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statement, and continues in the normal manner, ignoring any entry 
statements subsequently encountered, until a return statement or 
the end of the procedure is reached. 

• TheRESULT (result-name) clause can only be specified when the 
entry statement is included in a function subprogram. If specified, 
result-name must differ from entry-name, and entry-name must not 
appear in any specification statement in the scoping unit of the 
function subprogram; entry-name assumes all the attributes of result- 
name TheRESULT clause in an entry statement has the same 
syntax and semantics as in a function statement. 

• If the entry statement appears in a function, the result variable is 
that specified in the function statement; if none is specified, the 
result variable is entry-name. 

• If the characteristics of the result variable specified in the entry 
statement are the same as those of the result variable specified in the 
function statement, then the result variable is the same, even 
though the names are different. I f the characteristics are different, 
then the result variables must be: 

- Nonpointer scalars of intrinsictype 

- Storage associ ated 

- If any is of character type, they must all be of character type and 
must all havethesame length. If any is of noncharacter type, they 
must all be of noncharacter type. 

• The result variable may not appear in a common, data, or 
equivalence statement. Also, the result variable may not have the 

ALLOCATABLE, INTENT, OPTIONAL, PARAMETER, Or SAVE attribute. 

• If recursive is specified on the function statement at the start of a 
function subprogram, and result is specified on an entry statement 
within the subprogram, then the interface of the function defined by 
the entry statement is explicit within the function subprogram; the 
function can thus be invoked recursively. (Note that the keyword 
recursive is not given on the entry statement, but only on the 
function statement.) 
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ENTRY 


Examples 


• If recursive is specified on the subroutine statement at thestart 
of a subroutine subprogram, the interface of the subroutine defined 
by an entry statement within thesubprogram is explicit within the 
subprogram; the subroutine can thus be called recursively. 

• A dummy argument in an entry statement must not appear in an 
executable statement preceding the entry statement, unless it also 
appears in a function, subroutine, or entry statement preceding 
the executable statement. 

• If a dummy argument in a subprogram—that is, as specified in a 
function or subroutine statement at thestart of thesubprogram 
or in any entry statements within the subprogram—is used in an 
executable statement, then the statement may only be executed if the 
dummy argument appears in the dummy argument list of the 
procedure name actually referenced in the current call. The same 
restrictions apply when you use a dummy argument in a specification 
expression to specify an array bound or character length. 

• A procedure defined by an entry statement may be given an explicit 
interface by use of an interface block. The procedure header in the 
interface body must be a function statement for an entry to a 
function subprogram, and a subroutine statement for an entry to a 
subroutine subprogram. 

The entry statement was often used in FORTRAN 77 programs in 
situations where a set of subroutines or functions had slightly different 
dummy argument lists but entailed computations involving identical 
data and code. I n Fortran 90 the use of the entry statement in such 
situations can be replaced by the use of optional arguments. 

The following example defines a subroutine subprogram with two 
dummy arguments. Thesubprogram also contains an entry statement 
that takes only the first dummy argument specified in the subroutine 
statement. 

SUBROUTINE Full_Name (first_name, surname) 

CHARACTER(20) :: first_name, surname 

ENTRY Part_Name (first_name) 

The following example creates a stack. It shows the use of entry to 
group the definition of a data structure together with thecodethat 
accesses it, a technique known as encapsulation. (This example could 
alternatively be programmed as a module, which would be preferable in 
that it does not rely on storage association.) 
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SUBROUTINE manipulate_stack 
IMPLICIT NONE 

INTEGER size, top /0/, value 
PARAMETER (size = 100) 

INTEGER, DIMENSION(size) :: stack 
SAVE stack, top 

ENTRY push(value) ! Push value onto the stack 

IF (top == size) STOP 'Stack Overflow' 

top = top + 1 

stack (top) = value 

RETURN 

ENTRY pop(value) ! Pop top of stack and place in value 

IF (top == 0) STOP 'Stack Underflow' 

value = stack (top) 

top = top - 1 

RETURN 

END SUBROUTINE manipulate_stack 

Here are examples of call statements associated with the preceding 
example: 

CALL push(10) 

CALL push(15) 

CALL pop(I) 

CALL pop(J) 

Related statements function, subroutine, and call 

Related concepts For information about external procedures, see "External procedures” on 
page 128. 
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Syntax 


Description 


EQUIVALENCE 

Associates different objects with same storage area. 

equivalence (equivalence-1 istl) [, (equivalence-list2) ] . . . 
equivalence-list 

is a comma-separated list of two or more object names to be 
storage associated. Objects can include simple variables, array 
elements, array names, and character substrings. 

All objects in each equivalence-list share the same storage area. Such 
objects become storage associated and are equivalenced to each other. 
Equivalencing may also cause other objects to become storage associated. 

The following items must not appear in equivalence-list: 

• Automatic objects, including character variables whose length is 
specified with a nonconstant 

• Al I ocatable arrays 

• Function names, result names, or entry names 

• Dummy arguments 

• Records or record field references 

• Nonsequenced derived-type objects 

• Derived-type components 

• Pointers or derived-type objects containing pointers 

• Named constants 

Derived-type objects may appear in an equivalence statement if they 
have been defined with the sequence attribute. 

The foil owing restrictions apply to objects that can appear in an 

equivalence statement: 

• Objects in the same equivalence-list must be explicitly or implicitly 
declared in the same scoping unit. 
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• The name of an equivalenced object must not be made available by 
useassoci ation. 

The Fortran 90 standard imposes the foil owing type restrictions on 
equivalenced objects: 

• If one of the objects in equivalence-list is of type default integer, 
default real, double precision real, default complex, double complex, 
default logical, or numeric sequence type, then all objects in 
equivalence-list must be one of these types. 

HP Fortran relaxes this restriction and allows character and 
noncharacter items to be equivalenced. Note, however, that use of this 
extension can impact portability. 

• If one of the objects in equivalence-list is of derived type that is not a 
numeric sequence or character sequence type, then all objects in 
equivalence-list must be of the same type. 

• If one of the objects in equivalence-list is of intrinsic type other than 
default integer, default real, double precision real, default complex, 
double complex, default logical, or default character, then all objects 
in equivalence-list must be of the same type with the same kind type 
parameter value. 

HP Fortran relaxes this restriction. 

The equivalence statement does not cause type conversion or imply 
mathematical equivalence. If an array and a scalar share the same 
storage space through the equivalence statement, the array does not 
have the characteristics of a scalar and the scalar does not havethe 
characteristics of an array. They only share the same storage space. 

Care should betaken when data types of different sizes share the same 
storage space, because the equivalence statement specifies that each 
data item in equivalence-list has the same first storage unit. For 
example, if a 4-byte integer variable and a double-precision variable are 
equivalenced, the integer variable shares the same space as the 4 most 
significant bytes of the 8-byte double-precision variable. 

Proper alignment of data types is always enforced. The compiler will 
issue a diagnostic if incorrect alignment is forced through an 
equivalence statement. For data type alignment rules, see "I ntrinsic 
data types” on page 22. 

The lengths of the equivalenced objects need not be the same. 
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Equivalencing character data 

An equivalence statement specifies that the storage sequences of 
character data items whose names are specified in equivalence-list have 
the same first character storage unit. This causes the association of the 
data items in equivalence-list and can cause association of other data 
items as well. Consider thefollowing example: 

CHARACTER(LEN=4) :: a, b 

CHARACTER(LEN=3) :: c(2) 

EQUIVALENCE (a, c (1)), (b, c(2)) 

As a result of this equivalence statement, thefourth character in a, 
the first character in b, and the first character in c (2) share the same 
storage. 

Strings of the same or different lengths can beequivalenced to start on 
the first element, and you can use substring notation to specify other 
associations, as in thefollowing: 

CHARACTER (10) :: si, s2 

EQUIVALENCE (si (2:2), s2(3:3) 

Substring subscripts must be integer initialization expressions, and the 
substring length must be nonzero. 

Equivalencing arrays 

To determine equivalence between arrays with different dimensions, HP 
Fortran views all elements of an array in linear sequence. Each array is 
stored as if it werea one-dimensional array. Array elements are stored in 
ascending sequential, column-major order; for information about how 
arrays are laid out in memory, see "Array fundamentals” on page 52. 

Array elements can beequivalenced with elements of a different array or 
with scalars. No equivalence occurs outside the bounds of any of the 
equivalenced arrays. 

If equivalenced arrays are not of the same type, they may not line up 
element by element. 

If an array name appears without subscripts in an equivalence 
statement, it has the same effect as specifying an array name with the 
subscript of its first element. 

It is illegal to equivalence different elements of the same array to the 
same storage area. For example, thefollowing is illegal: 

INTEGER : : a (2) , b 
EQUIVALENCE (a(l), b), (a (2), b) 
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Examples 

Related statements 
Related concepts 


Likewise, it is illegal to use the equivalence statement to force 
consecutive array elements to be noncontiguous, as in thefollowing 
example: 

REAL : : a (2) , r (3) 

EQUIVALENCE (a(l), r(l)), (a (2), r(3)) 

Array subscripts must be integer initialization expressions. 

Equivalence in common blocks 

An equivalence statement must not cause two common blocks to be 
associated. However, you can use the equivalence statement to place 
objects in common by equivalencing them toobjects already in common. 
If one element of an array is equivalenced to an object in common, the 
whole array is placed in common with equivalence maintained for 
storage units preceding and following the data element in common. The 
common block is always extended when it is necessary to fit an array 
that shares storage space i n the common block. 11 may be extended after 
the last entry, but not before the first. 

Consider thefollowing example, which puts array i in blank common 
and equivalences array element j (2) to i (3): 

INTEGER : : i (6), j (6) 

COMMON i 

EQUIVALENCE (i(3), j (2)) 

The effect of the equivalence statement is to extend blank common to 
include element j (6) . This is entirely legal because the extension occurs 
at the end of the common block. 

But if the equivalence statement werechanged as follows: 

EQUIVALENCE (i(l), j(2)) ! illegal 

it would result in an illegal equivalence, because storage would have to 
be inserted in front of the block in order to accommodate element j (l). 

I n thefollowing example, the variables a, b, and c share thesame 
storage space; array elements d (2) ande(5) share the same storage 
space; variables f, g, and h share the same storage: 

INTEGER :: a, b, c, d(20), e(30), f, g, h 
EQUIVALENCE (a, b, c), (d(2), e(5)), (f, g, h) 

COMMON 

For information about data alignment, seeTable 5 and "Alignment of 
derived-type objects” on page 44. 
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Syntax 

Description 

Examples 

Related statements 
Related concepts 


EXIT 

Terminates a do loop. 

exit [do-construct-name] 
do-construct-name 

is the name given to the do construct. If do-construct-name is 
specified, it must be the name of a do construct that contains 
the exit statement. 

If you do not specify do-construct-name, the exit statement terminates 
the immediately enclosing do loop. If you do specify it, the exit 
statement terminates the enclosing do loop with the same name. 

DO i = 1, 20 
n (i) = 0 
READ *, j 
IF (j < 0) EXIT 
n (i) = j 
END DO 

cycle and do 

For related information, see the foil owing: 

• "do construct” on page 107 

• "Flow control statements”on page 112 


Chapter 10 


327 



Syntax 


Description 


HP Fortran statements 

external (statement and attribute) 


external (statement and attribute) 

Decl ares a name to be external. 

A type declaration statement with the external attribute is: 

type , attrib-list : : function-name-list 

type 

is a valid type specification (integer, real, logical, 
character, type (name), etc.), 
attrib-list 

is a comma-separated list of attributes including external and 
optionally those attributes compatible with it, namely: 


OPTIONAL PRIVATE PUBLIC 


function-name-list 

is a comma-separated list of function names to be designated 

EXTERNAL. 

The syntax of the external statement is: 
external external-name-1 ist 

Note that the syntax of the external statement does not permit 
optional colons. 

An external attribute or statement specifies that a name may be used 
as an actual argument in subroutine calls and function references. The 
name is either an external procedure, a dummy procedure, or a block 
data program unit. 

A name that appears in a type statement specifying the external 
attribute must be the name of an external procedure or of a dummy 
argument that is a procedure. 

The following rules and restrictions apply: 

• A name can appear once in an external statement, in a declaration 
statement with an external attribute, or in an interface body, but 
not in more than one of these. 
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external (statement and attribute) 


Examples 


Related statements 
Related concepts 


• The external attribute cannot be used with subroutines. To declare 
a subroutine as external, use the statement form. 

• If the name is a dummy argument, an external statement declares 
it to be a dummy procedure. 

• If a user-defined procedure or library routine has the same name as 
an intrinsic procedure, then it must either be declared to have the 
external attributeor have an explicit interface. The intrinsic 
procedure is then no longer available in such program units. 

• The intrinsic and external attributes are mutually exclusive. 

SUBROUTINE sub (fourier) 

! fourier is a dummy procedure; actual argument corresponding to 
! to fourier can be external, intrinsic, or module procedure 
REAL fourier 

EXTERNAL fourier ! statement form 

REAL, EXTERNAL :: SIN, COS, TAN ! attribute form 

! SIN, COS, and TAN are no longer intrinsic procedures; functions 
! with these names must be defined in the program 

END SUBROUTINE sub 
SUBROUTINE gratx (x, y) 

! Specify init_block_a as the block data 
! subprogram that initializes common block a 
EXTERNAL init_block_a 

! Common block available in subroutine gratx 
COMMON /a/ temp, pressure 
END SUBROUTINE gratx 

BLOCK DATA init_block_a 

! init_block_a initializes the objects in common block a 

COMMON /a/ temp, pressure 

DATA temp, pressure/ 98.6, 15.5 / 

END BLOCK DATA init_block_a 

INTRINSIC 

For related information, see the foil owing: 

• 'Type declaration for intrinsic types" on page24 

• "Procedures”on page 123 

• "Declaring library routines as EXTERNAL"on page590 
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FORMAT 


FORMAT 

Describes how I/O data is to be formatted. 

label format (format-list) 
label 

is a statement label, 
format-list 

is a comma-separated list of format items, where each item in 
the list can be either one of the edit descriptors described in 
Table 25 or (format-list). If format-list is a list item, it may be 
optionally preceded by a repeat specification—a positive integer 
that specifies how may times format-list is to be repeated. 

The format statement holds the format specification that indicates how 
data in formatted I/O is to be translated between internal (binary) 
representation and formatted (ASCI I) representation. Thetranslation 
makes it possibleto represent data in a humanly readable format. 

Although a format specification can be embedded within a data transfer 
statement, the point to using a format statement is to make it available 
to any number of data transfer statements. Several data transfer 
statements can use the same format specification contained in a format 
statement by referencing label. 

Another advantage of the format statement over the use of embedded 
format specifications is that it is "pre-compiled", reducing the runtime 
overhead of processing theformat specification and providing compile¬ 
time error checking of the fmt= specifier. 

PROGRAM format_example 
WRITE (15,FMT=2 0) 1234, 45, -12 
20 FORMAT (16, 214) 

END PROGRAM format_example 

When compiled and executed, this program outputs thefollowing (where 
b represents the blank character): 

bb!234bb45b-12 
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FORMAT 


Related statements read and write 

Related concepts For information about I/O formatting, seeChapter 9, "I/O formatting,”on 
page 205. 
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FUNCTION 


FUNCTION 

I introduces a function subprogram. 

[recursive] [type-spec] function 

function-name ([dummy-arg-name-list]) 

[result (result-name) ] 

RECURSIVE 

is a keyword that must be specified in the function statement 
if thefunction is either directly or indirectly recursive. The 
recursive clause can appear at most once, either before or 
after type-spec. It is not an error to specify recursive for a 
non recu rsi ve f u net i on. 

A recursive function that calls itself directly must also have the 
result clause specified (see below). 

type-spec 

is a valid type specification (integer, real, logical, 
character, type (name), etc.). The type and type parameters 
of thefunction result can be specified by type-spec or by 
declaring the result variable within thefunction subprogram, 
but not by both. The implicit typing rules apply if thefunction is 
not typed explicitly. 

If thefunction result is array-valued or a pointer, the 
appropriate attributes for the result variable (which is function- 
name, or result-name if specified) must be specified within the 
function subprogram, 
function-name 

is the name of thefunction subprogram being defined, 
dummy-arg-name-list 

is a comma-separated list of dummy argument names for the 
function, 
result-name 

is the result variable. If the result clause is not specified, 
function-name becomes the result variable. If result-name is 
given, it must differ from function-name, and function-name 
must not then be declared within thefunction subprogram. 
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Description 

Examples 


Related statements 

Related concepts 


As noted above, a recursive function that calls itself directly 
must havethe result clause specified. For other functions, the 
result clause is optional. 

A function statement introduces an external, module, or internal 
function subprogram. 


PROGRAM main 
CONTAINS 

! f is an internal function 
FUNCTION f(x) 

f = 2 *x + 3 
END FUNCTION f 

! recursive function, which must specify RESULT clause 
RECURSIVE INTEGER FUNCTION factorial (n) & 

RESULT (factorial_value) 

IMPLICIT INTEGER (a-z) 

IF (n <= 0) THEN 

factorial_value = 1 
ELSE 

factorial_value = n * factorial (n-1) 

END IF 

END FUNCTION factorial 
END PROGRAM main 

CONTAINS, END, INTENT, INTERFACE, OPTIONAL, and thetype 

declaration statements 

For related information, see the foil owing: 

• 'Type declaration for intrinsic types" on page24 

• "External procedures"on page 128 

• "Arguments"on page 139 

• "Defi ned operators" on page 155 
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Related concepts 
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go to (assigned) 


go to (assigned) 

Transfers control to a variable that was assigned a label. 

go to integer-variable [[,] (label-list)] 
integer-variable 

is a scalar variable of default type integer. 

label-list 

is a list of statement labels, separated by commas. 

The assigned go to statement transfers control to the statement whose 
label was most recently assigned to a variable with the assign 
statement. 

integer-variablemust be given a label valueof an executable statement 
through an assign statement prior to execution of the go to statement. 
When the assigned go to statement is executed, control is transferred to 
the statement whoselabel matches the label valueof i nteger-variable 

label-list is a list of labels that integer-variable might assume. 

integer-variablemust not bean array element or an integer component of 
a derived type. 

The use of this statement can hinder the ability of the compiler to 
optimizethe program in which it occurs. 

ASSIGN 10 TO out 
GO TO out 

assign, go to (computed), and go to (unconditional) 

For information about flow control statements, see "Flow control 
statements" on page 112. 
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go to (computed) 


go to (computed) 

Transfers control to one of several labels. 

go to ( label-list ) [,] arithmetic-expression 
label-list 

is a list of statement labels, separated by commas, 
a r i th meti c-expressi on 

is a scalar integer expression. As an extension, HP Fortran also 
allows the expression to be of type real or double precision. 

The computed go to statement transfers control to one of several 
labeled statements, depending on the value of arithmetic-expression. 
After arithmetic-expression is evaluated (and, if necessary, truncated to 
an integer value), control transfers to the statement label whose position 
in label-list corresponds to the truncated value of arithmetic-expression. 

If the value of arithmetic-expression is less than lor greater than the 
total number of labels in label-list, control transfers to the executable 
statement immediately foil owing the computed go to statement. 

index = 3 

! Branch made to the statement labeled 30. 

GO TO (10, 20, 30, 40) index 

select case, go to (assigned), and go to (unconditional) 

For information about flow control statements, see "Flow control 
statements" on page 112. 
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go to (unconditional) 


go to (unconditional) 

Transfers control to a specified label. 

go to label 
label 

is the label of an executable statement. 

The unconditional go to statement transfers control directly to the 
statement at the specified label. The executable statement with label can 
occur before or after the go to statement, but it must be within the 
same scoping unit. 

GO TO 30 
30 CONTINUE 

go to (assigned) and go to (computed) 

For information about flow control statements, see "Flow control 
statements" on page 112. 
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if (arithmetic) 


Syntax 


Description 


Examples 

Related statements 
Related concepts 


if (arithmetic) 

Transfers control to one of three labels. 

if (arithmetic-expression) labeIN, labelZ, labelP 
a r i th meti c-expressi on 

is an arithmetic expression of any numeric type except complex 
and double complex. 

label 

is a label of an executable statement. 

The arithmetic if statement transfers control to the statement whose 
label is determined by arithmetic-expression. If arithmetic-expression 
evaluates to a negative value, control transfers to labeIN; if it evaluates 
to 0, control transfers to labelZ; and if it evaluates to a positive value, 
control transfers to label P. 

The same label may appear more than once in the same arithmetic if 
statement. 

Each label must be that of an executable statement in the same scoping 
unit as the arithmetic if. 

i = -1 


! Branch to statement labeled 10 
IF (i) 10, 20, 30 


if (construct) and if (logical) 

For information about flow control statements, see "Flow control 
statements" on page 112. 
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if (block) 


Syntax 


Description 


Examples 

Related statements 
Related concepts 


if (block) 

Begins an IF construct. 

[construct-name :] if (logical-expression) then 
construct-name 

is the name given to the if construct. If construct-name is 
specified, the same name must also appear in the end if 
statement, 
logical-expressi on 

is a scalar logical expression. 

The if statement executes the immediately following statement block if 
logical-expression evaluates to true. 

The if construct, which the if statement begins, may include else if 
statements and an else statement to provide alternate statement blocks 
for execution. 

The block following the if statement may be empty. 

As an extension, H P Fortran allows the transfer of control into an if 
construct from outside the construct. 

IF (x <= 0.0 .AND. y > 1.0) THEN 
CALL fix_coord(x, y) 

END IF 

else, else if, if (arithmetic), if (logical), and end (construct) 

For information about the if construct, see "if construct" on page 111. 
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if (logical) 


Syntax 


Description 

Examples 
Related statements 
Related concepts 


if (logical) 

Conditionally executes a statement. 

if (logical-expression) statement 
logical-expression 

is a logical expression, 
statement 

is any executable statement other than the following: 

• A statement used to begi n a construct 

• Any E N D statement 

• Any I F statement 

The logical if statement is a two-way decision maker. If logical- 
expression evaluates to is true, statement executes and control passes to 
the next statement. If logical-expression evaluates to false, statement 
does not execute and control passes to the next statement in the 
program. 

IF (a .EQ. b) PRINT *, 'They are equal.' 

if (arithmetic) and if (construct) 

For information about flow control statements, see "Flow control 
statements" on page 112. 
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IMPLICIT 


IMPLICIT 

Changes or voids default typing rules. 

The implicit statement can take either of the following forms: 

• First form: 

implicit type (range-list) [, type (range-list) ,]... 

• Second form: 

IMPLICIT NONE 

type 

is the data type to be associated with the corresponding letters 
in range-list, 
range-list 

is a comma-separated list of letters or ranges of letters (for 
example, a-z or i-n) to be associated with type Writing a range 
of letters has the same effect as writing a list of single letters. 

The implicit statement can be used either to change or void the 
default typing rules within the program unit in which it appears, 
depending on which of the two forms the statement takes. 

First form 

This form of the implicit statement specifies type as the data type for 
all variables, arrays, named constants, function subprograms, entry 
names in function subprograms, and statement functions that begin with 
any letter in range-list and that are not explicitly given a type. 

Within the specification statements of a program unit, implicit 
statements must precede all other specification statements, except 
possibly the data and parameter statements. 

The same letter must not appear as a single letter or be included in a 
range of letters, more than once in all of the implicit statements in a 
scoping unit. 

For information on how the implicit and parameter statements 
interact, refer to "parameter (statement and attribute)" on page 391. 


340 


Chapter 10 



HP Fortran statements 

IMPLICIT 


Examples 


Related concepts 


Second form 

The implicit none statement disables the default typing rules for all 
variables, arrays, named constants, function subprograms, entry 
names, and statement functions (but not intrinsicfunctions). All such 
objects must be explicitly typed. The implicit none statement must be 
the only implicit statement in the scoping unit, and it must precede 
any parameter statement. Types of intrinsicfunctions are not affected. 

You can also use the +impiicit_none compile-line option to void the 
default typing rules. A program compiled with this option may include 
implicit statements, which the compiler will honor. 

The following statement causes all variables and function names 
beginning with i, j, or k to be of type complex, and all data items 
beginning with a, b, or c to be of type integer: 

IMPLICIT COMPLEX (I, J, K), INTEGER (A-C) 

For related information, see the foil owing: 

• "I mplicit typing" on page 28 
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INCLUDE 


INCLUDE 

I imports text from a specified file. 

include character-literal-constant 
ch a r a cter-1 i ter a I -con sta nt 

is the name of the file to include. 

The keyword include and character-literal-constant form an include 
line, which is used to insert text intoa program prior to compilation. The 
inserted text replaces the include line; the include line should 
therefore appear in your program where you want the inserted text. 
When theend of an included file is reached, thecompiler continues 
processing with the line foil owing the include line. 

character-literal-constant can be either a file name or a device name. It 
must not have a kind parameter that is a named constant. 

The include line must appear on one line with no other text except 
possibly a trailing comment. It should not havea statement label. Thus, 
you cannot branch to it, and it cannot bean action statement that is part 
of a Fortran 90 if statement. You cannot use the"; "operator to add a 
second include line, nor can you use the operator to continue it over 
another line. 

Thecompiler searches directories for the named include files in the 
following order: 

1 The current source directory 

2 Directories specified bythe-i compile-line option, intheorder 
specified 

3 The current working directory 

4 The directory /usr/inciude 

include lines can be nested to a maximum often levels. However, they 
must be nested non recursively. That is, inserted text must not specify an 
include linethat was encountered at an earlier level of nesting. 

Line numbering within the listing of an included file begins at 1. When 
the included file listing ends, the include level decreases appropriately, 
and the previous line numbering resumes. 
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INCLUDE 

Examples INCLUDE 'my_common_blocks' 

INCLUDE "/my_stuff/declarations.h" 

Related concepts For related information, see the foil owing: 

• "INCLUDE line”on page 19 
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INQUIRE 


INQUIRE 

Returns information about file properties. 

The syntax of the inquire statement has two forms: 

• I nquiry by output list: 

inquire ( iolength= integer-variable) output-list 

• I nquiry by unit or file: 
inquire (io-specifier-list) 

integer-variable 

is the length of the unformatted record that would result from 
writing output-list to a direct-access file. The value returned in 
integer-variablecan be used with theRECL= specifier in an open 
statement to specify the length of each record i n an unformatted 
direct-access file that will hold the data in output-list, 
output-list 

is a comma-separated list of data items, similar to what would 
be included with the write or print statement. Thedata items 
can include variables and implied-DO lists (see "I mplied-DO 
loop" on page 194). 
io-specifier-list 

is a list of comma-separated I/O specifiers. As noted in the 
following descriptions, most of the specifiers return information 
about thespecified unit or file, io-specifier-list must include 
either the unit= or file= specifier, but not both. Thefollowing 
paragraphs describe all thel/O specifiers that can appear in io- 
specifier-list: 

[unit=] unit 

specifies the unit connected to an external file, unit 
must be an integer expression that evaluates to a 
number greater than 0. If the optional keyword unit= 
is omitted, unit must be the first item in io-specifier- 
list. If unit appears in io-specifier-list, the file= 
specifier must not be used. 
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ACCESS=character 

returns thefollowing values, indicating the method of 
access: 


1 sequential ' File is connected for sequential 
access. 

'direct 1 File is connected for direct 

access. 

'undefined' Fileis not connected. 

ac t i ON=cha r acter-va r i a bl e 

returns thefollowing values, indicating the direction of 
the transfer: 


'read 1 File is connected for reading 

only. 

'write' File is connected for writing 

only. 

' readwrite ' File is connected for reading 
and writing. 

'undefined' F ile is not connected. 
BLANK=cha racter-va r i a bl e 

returns thetypeof blank control that is in effect. For 
information about blank control, seetheBLANK= 
specifier for the open statement. The values returned 
by the blank= specifier are: 


'null' Null blank control is in effect. 

'zero' Zero blank control is in effect. 

'undefined' F i le is not connected for 
formatted I/O. 
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del iM=character-vari able 

returns thefollowing values, indicating thecharacter 
to use (if any) to delimit character values in list- 
directed and namelist formatting: 


'apostrophe ' An apostrophe is used as the 
delimiter. 

'quote 1 The double quotation mark is 

used as the del i miter. 

'none' There is no delimiting 

character. 


'undefined 1 File is not connected for 
formatted I/O. 


DiRECT=character-variable 

returns thefollowing values, indicating whether or not 
the file is connected for direct access: 


' YES ' 


'NO' 


' UNKNOWN' 


File is connected for direct 
access. 

File is not connected for direct 
access. 

It cannot be determined 
whether or not file is connected 
for direct access. 


ERR=stmt-label 

specifies the label of the executable statement to which 
control passes if an error occurs during statement 
execution. 
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ExiST=logi cal-variable 

returns the following values, indicating whether or not 
thefileor unit exists: 


'true 1 File exists or unit is connected. 

'false 1 File does not exist or unit is not 

connected. 

f i LE=character-expressi on 

specifies the name of a file for inquiry. Thefile does not 
have to be connected or even exist. If theFiLE= 
specifier appears in io-specifier-list, theuNiT= specifier 
must not be used. 

f ORM=ch a r a cter-va r i a bl e 

returns thefollowing values, indicating whether the 
file is connected for formatted or unformatted I/O: 


' FORMATTED' 


'UNFORMATTED' 


'UNDEFINED' 


File is connected for 
formatted I/O. 

File is connected for 
unformatted I/O. 

File is not connected. 
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FORMATTED=character-variable 

returns the following values, indicating whether or not 
the file is connected for formatted I/O: 


'yes' File is connected for formatted 

I/O. 

'no' File is not connected for 

formatted I/O. 

'unknown' It cannot be determined 

whether or not file is connected 
for formatted I/O. 

i o s t at =i n teger-va r i a bl e 

returns the I/O status after the statement executes. If 
the statement successfully executes, integer-variable is 
set to zero. If an error occurs, it is set to a positive 
integer that indicates which error occurred.. 

name =ch a r a cter-va r i a bl e 

returns the name of file connected to the specified unit. 
If the file has no name or is not connected, name= 
returns the string undefined. 

NAMED=logi cal-variable 

returns the following values, indicating whether or not 
the file has a name: 


'true' File has a name. 

'false 1 File does not have a name. 

NEXTREC=integer-variable 

returns the number of the next record to be read or 
written in a fileconnected for direct access. The value 
is the last record read or written +1. A value of 1 
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INQUIRE 


indicates that no records have been processed. I f the 
file is not connected or it is a devicefileor its status 
cannot be determined, integer-variable is undefined. 

numb e r= i n teger-va r i a bl e 

returns the unit number that is connected to the 
specified file. If no unit is connected to the named file, 
integer-variable is undefined. 

OPENED=logi cal-variable 

returns the following values, indicating whether or not 
the file has been opened (that is, is connected): 


'true 1 File is connected. 

'false' File is not connected. 

p ad =ch a r acter-va r i a bl e 

returns a value indicating whether or not input records 
are padded with blanks. For more information about 
padding, seethe pad= specifier for the open statement. 
The return values are: 


'yes' Fileor unit is connected with 

pad= ' yes ' in open statement. 

'no' Fileor unit is connected with 

pad= 'no ' in open statement. 
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posiTiON=character-variable 

returns thefollowing values, indicating thefile 
position: 


' REWIND' 


'APPEND' 


' ASIS' 


'UNDEFINED' 


File is connected with its 
position at the start of the first 
record. 

File is connected with its 
position at theend-of-file 
record. 

File is connected without 
changing its position. 

File is not connected or is 
connected for direct access. 


READ=character-variable 

returns thefollowing values, indicating whether or not 
reading is an allowed action for thefile: 


'yes' Reading is allowed for file. 

'no' Reading is not allowed for file. 

'unknown' It cannot be determined 

whether or not reading is 
allowed for file. 
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READWRiTE=character-variable 

returns the following values, indicating whether or not 
reading and writing are allowed actions for the file: 


'yes' Both reading and writing are 

allowed for file. 

'no' Reading and writing are not 

both allowed for file. 

'unknown' It cannot be determined 

whether or not reading and 
writing are both allowed for file. 

re c l =i n teger-va r i a bl e 

returns the record length of the specified unit or file, 
measured in bytes. The file must be a direct-access file. 
If the file is not a direct-access file or does not exist, 
integer-variable is undefined. 

sequent iAL=character-vari able 

returns the following values, indicating whether or not 
the file is connected for direct access: 


'yes' File is connected for sequential 

access. 

'no' File is not connected for 

sequential access. 

'unknown' It cannot be determined 

whether or not file is connected 
for sequential access. 
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UNFORMATTED=character-variable 

returns the following values, indicating whether or not 
the file is connected for formatted I/O: 


'yes' File is connected for 

unformatted I/O. 

'no' File is not connected for 

unformatted I/O. 

'unknown' It cannot be determined 

whether or not file is connected 
for unformatted I/O. 

WRiTE=character-variable 

returns the following values, indicating whether or not 
writing is an allowed action for the file: 


'yes' Writing is allowed for file. 

'no' Writing is not allowed for file. 

'unknown' It cannot be determined 

whether or not writing is 
allowed for file. 

The inquire statement returns selected properties of a specified file or 
unit number. (It is illegal to include both the unit= specifier and the 
file= specifier in thesame inquire statement.) I nquiring by unit 
number should be used on connected files; inquiring by filename is 
typically used on unconnected files. 

I n addition, the inquire statement can also be used to determine the 
record length of a new or existing file. That is, you can use inquire to 
obtain the record length before creating the file and then usethereturn 
value as the argument to the recl= specifier in an open statement. 
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Examples 


The following examples illustrate different uses of the inquire 
statement. 

Inquiry by file 

The inquire statement in this example returns the following 
information about thefile named my_fiie: 

• The exist= specifier determines if thefile is connected. 

• The direct= specifier determines if it is connected for direct access. 

• The readwrite= specifier determines if it can be read and written. 

LOGICAL :: exist 

CHARACTER(LEN=9) :: dir_acc, rw_sts 

INQUIRE (FILE='my_file', EXIST=exist, & 

DIRECT=dir_acc, READWRITE=rw_sts) 

Inquiry by unit 

The following inquire statement returns the following information 
about thefile connected to the unit in u_num: 

• The opened= specifier determines if thefile is connected to u_num. 

• The named= specifier determines if it is a named fileor a scratch file. 

• The name= specifier returns its name. 

LOGICAL :: opened, named 
INTEGER :: u_num 
CHARACTER(LEN=80) :: fname 

INQUIRE (UNIT=u_num, NAMED=named, OPENED=opened, NAME=fname) 

Inquiry by output list 

When using the open statement to create a direct-access file, you must 
specify the record length for thefile with theRECL= specifier. Previous to 
Fortran 90, you had to resort to a nonportable strategy to determine 
record length. The Fortran 90 inquire statement provides a portable 
solution: usethe inquire statement to inquire by output list, and 
specify the return valuefrom the inquire statement as the argument to 
the open statement. The following is an example: 

INTEGER :: rec_len, ios 

INQUIRE (IOLENGTH=rec_len) x, y, i, j 

OPEN (UNIT=32, FILE='new_file', IOSTAT=ios, & 

ACCESS='DIRECT', RECL=rec_len) 
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Related statements open 

Related concepts For information about I/O concepts, see Chapter 8, "I/O and file 
handling,"on page 171. 
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Syntax 


INTEGER 

Declares entities of type integer. 


integer [kind-spa;] [[, attrib-list] ::] entity-list 
kind-spec 

is the kind type parameter that specifies the range of the 
entities in entity-list, kind-spec takes the form: 

([KI N D=] kind-param) 

where kind-param can be a named constant or a 
constant expression that has the integer value of 1, 2, 
4, or 8. The size of the default type is 4. 

As an extension, kind-spec can take the form: 

*len-param 

where len-param is the integer 1, 2, 4, or 8 
(default =4). 


attri b-l ist 

is a list of one or more of the foil owing attributes, separated by 
commas: 


ALLOCATABLE 

INTRINSIC 

PRIVATE 

DIMENSION 

OPTIONAL 

PUBLIC 

EXTERNAL 

PARAMETER 

SAVE 

INTENT 

POINTER 

TARGET 


If attri b-l i st is present, it must be foil owed by the double colon. 
For information about individual attributes, seethe 
corresponding statement in this chapter. 
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Description 


Examples 


entity-list 

is a list of entities, separated by commas. Each entity takes the 
form: 

name [(array-spec)] [= initialization-expr] 
where: 
name 

is the name of a variable or function 
array-spec 

is a comma-separated list of dimension bounds 
initial izati on-expr 

is an integer constant expression. If initialization-expr 
is present, entity-list must be preceded by the double 
colon. 

The integer statement is used todeclarethe length and properties of 
data that are whole numbers. A kind parameter (if present) indicates the 
representation method. 

The integer statement is constrained by the rules for all type 
declaration statements, including the requirement that it precede all 
executable statements. 

As a portability extension, H P Fortran allows the following syntax for 
specifying the length of an entity: 

name [*len] [ (array-spec) ] [= initialization-expr] 

If (array-spec) is specified, *len may appear on either side of (array- 
spec) . If name appears with *len, it overrides the length specified by 

INTEGER*Size. 

The following arevalid declarations: 

INTEGER i, j 

INTEGER(KIND=2) :: k 

INTEGER (2), PARAMETER :: limit=420 

! initialize an array, using an array constructor 

INTEGER, DIMENSION(4) :: ivec = (/1, 2, 3, 4 /) 

! use the slash notation (an HP extension) to initialize 

INTEGER i/-l/, j/—2/, k/-7/ ! note, no double colon 

! the following declarations are equivalent; the second uses the 

! HP length specification extension 

INTEGER (KIND = 8) inti 

INTEGERS intl*8 


356 


Chapter 10 



HP Fortran statements 

INTEGER 


Related statements byte 

Related concepts For related information, see the foil owing: 

• 'Type declaration for intrinsic types" on page 24 

• "I implicit typing" on page 28 

• "Array declarations"on page54 

• "Array constructors" on page 71 

• "E xpressions" on page 80 

• "KIN D(X)" on page 537 
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Description 
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intent (statement and attribute) 


intent (statement and attribute) 

Specifies the intended use of dummy arguments. 

A type declaration statement with the intent attribute is:7 

type , attrib-list :: dummy-arg-name-list 

type 

is a valid type specification (integer, real, logical, 
character, type (name), etc.), 
attrib-list 

is a comma-separated list of attributes including 
intent (intent-spec) and the optional attributes compatible 
with it, shown below: 


DIMENSION OPTIONAL TARGET 


i ntent-spec 

is one of in, out, or inout. (The form in out is valid.) 
dummy-arg-name-list 

is a comma-separated list of subprogram dummy arguments to 
which i ntent-spec is to apply. 

The syntax of the intent statement is: 

intent (intent-spec) [::] dummy-arg-name-list 

The intent attribute declares whether a dummy argument is intended 
for transferring a value into a procedure, or out of it, or both. The 
intent attribute helps detect the use of arguments inconsistent with 
their intended use, and may also assist the compiler in generating more 
efficient code. 

If a dummy argument has intent in, the procedure must not change it or 
cause it to become undefined. If the actual argument is defined, this 
valueis passed in as the value of the dummy argument. 
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Examples 


Related statements 


If a dummy argument has intent out, the corresponding actual 
argument must be definable; that is, it cannot be a constant. When 
execution of the procedure begins, the dummy argument isundefined; 
thus it must be given a value before it is referenced. The dummy 
argument need not be given a value by the procedure. 

If a dummy argument has intent inout, the corresponding actual 
argument must be definable. Ifthe actual argument is defined, this 
valueis passed in as the value of the dummy argument. Thedummy 
argument need not be given a value by the procedure. 

The following points should also be noted: 

• I ntent specifications apply only to dummy arguments and may only 
appear in the specification part of a subprogram or interface body. 

• If there is no intent specified for an argument in a subprogram, the 
limitations imposed by the actual argument apply tothe dummy 
argument. For example, if the actual argument is an expression that 
is not a variable, the dummy argument must not redefine its value. 

• The intent of a pointer dummy argument must not be specified. 


! x, y, and z are dummy arguments 
SUBROUTINE electric (x, y, z) 

REAL, INTENT (IN) :: x, y ! x and y are used only for input 

! z is used for input and output 

COMPLEX, INTENT (INOUT), TARGET :: z(1000) 

SUBROUTINE pressure (true, tape, a, b) 

USE a_module 

TYPE (ace), INTENT (IN) : : a, b ! a and b are only for input 
INTENT (OUT) true, tape ! true and tape are for output 

SUBROUTINE lab_ten (degrees, x, y, z) 

COMPLEX, INTENT(INOUT) :: degrees 
REAL, INTENT(IN), OPTIONAL :: x, y 
INTENT(IN) z 

PROGRAM pxx 

CALL electric (a+1, h*c, d) ! First subroutine defined above 
CALL lab_ten (dg, e, f, gtl.O) 

END PROGRAM pxx 

function and subroutine 
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intent (statement and attribute) 

For related information, see the foil owing: 

• 'Type declaration for intrinsic types” on page24 

• "INTENT attribute”on page 148 


360 


Chapter 10 



HP Fortran statements 

INTERFACE 


Syntax 


Description 


Examples 


INTERFACE 

I introduces an interface block. 

interface [ generi c-spa:] 
generic-spec 

is one of: 

• generic-name 

• operator (defined-operator) 

• ASSIGNMENT(=) 

generic-name 

is the name of a generic procedure, 
defi ned-operator 
is one of: 

• An intrinsic operator 

• . operator., where operator is a user-defined name 

The interface statement is the first statement of an interface block. 

I nterface blocks constitute the mechanism by which external procedures 
may begiven explicit i nterfaces and also provide additional functionality, 
as described below. 

The interface generic-name form defines a generic interface for the 
procedures in the interface block. 

The interface operator (defined-operator) form is used to define a 
new operator or to extend the meaning of an existing operator. 

The interface assignment ( = ) form is used to extend the assignment 
operator so that it can be used (for example) with derived-type objects. 

The foil owing examples illustrate different forms of the interface block: 

! make explicit the interfaces of external function spline 

! and external subroutine sp2 

INTERFACE 

REAL FUNCTION spline(x,y,z) 

END FUNCTION spline 
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SUBROUTINE sp2(x,z) 

END SUBROUTINE sp2 
END INTERFACE 

! Make the interface of function r_ave explicit and give 
! it the generic name g_ave 
INTERFACE g_ave 

FUNCTION r_ave(x) 

! Get the size of x from the module ave_stuff 
USE ave_stuff, ONLY: n 
REAL r_ave, x(n) 

END FUNCTION r_ave 
END INTERFACE 

! Make the interface of external function b_or explicit, 
use! it to extend the + operator 
INTERFACE OPERATOR ( + ) 

FUNCTION b_or(p, q) 

LOGICAL b_or, p, q 
INTENT (IN) p, q 
END FUNCTION b_or 
END INTERFACE 

Related statements end interface, function, and subroutine 

Related concepts For related information, see the foil owing: 

• "Derived types" on page 39 

• "I nterface blocks"on page 152 


and 
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intrinsic (statement and attribute) 


Syntax 


Description 


intrinsic (statement and attribute) 

Identifies an intrinsic procedure. 

The syntax of the type declaration statement with the intrinsic 
attribute is: 

type, attrib-list :: intrinsic-function-name-list 
type 

is a valid type specification (integer, real, logical, 
character, type (name), etc.), 
attrib-list 

is a comma-separated list of attributes including intrinsic 
and optionally those attributes compatible with it, namely: 


PRIVATE PUBLIC 


i ntri nsi c-fu ncti on-name-l i st 

is a comma-separated list of intrinsic-function-names. (Note 
that subroutine names cannot appear in type statements, so 
that intrinsic subroutine names can only be identified as such 
by use of the intrinsic statement, described below.) 

The syntax of the intrinsic statement is: 

intrinsic i ntri nsi c-procedure-name-l ist 

where intrinsic-procedure-name-list is a comma-separated list of 
procedure names. 

Notethat, I ike the external statement, the intrinsic statement does 
not have optional colons. 

The intrinsic statement and attribute identifies a specific or generic 
name as that of an intrinsic procedure, enabling it to be used as an 
actual argument. (Only a specificfunction name—or a generic name that 
is thesame as thespecific name—can be used as an actual argument; see 
"Procedure dummy argument" on page 142.) The intrinsic statement 
is necessary to inform the compiler that a name is intrinsic and is not the 
name of a variable. Whenever an intrinsic name is passed as an actual 
argument and no other appearance of the name in the same scoping unit 
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Related statements 
Related concepts 
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intrinsic (statement and attribute) 


indicates that it is a procedure, it must be specified by the calling 
program in an intrinsic statement, or (if a function name) in a type 
declaration statement that includes the intrinsic attribute. 

Each name can appear only once in an intrinsic statement and in at 
most one intrinsic statement within the same scoping unit. Also, a 
name cannot appear in both an external and an intrinsic statement 
within thesamescoping unit. 

SUBROUTINE subr ! caller 

DOUBLE PRECISION :: dsin,x,y,func 
INTRINSIC dsin 

y = func(dsin,x) 

END SUBROUTINE subr 

DOUBLE PRECISION FUNCTION func(proc,y) ! callee 
DOUBLE PRECISION :: y, proc 

func = proc(y) 

END FUNCTION func 

EXTERNAL 

For additional information about passing user-defined and intrinsic 
procedures as arguments, see "Procedure dummy argument" on 
page 142. I ntrinsic procedures are described in "I ntrinsic procedure 
specifications” on page 487. 
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LOGICAL 


Syntax 


LOGICAL 

Declares entities of type logical. 


logical [kind-spa;] [[, attrib-list] ::] entity-list 
kind-spec 

specifies the size of the logical entity in bytes, kind-spec takes 
the form: 


([kind= ] kind-param) 

where kind-param can be a named constant or a 
constant expression that has the integer value of 1, 2, 
4, or 8. The size of the default type is 4. 

As an extension, kind-spec can take the form: 

*len-param 

where len-param is the integer 1, 2, 4, or 8 (default = 
4). 

attrib-list 

is a list of one or more of the foil owing attributes, separated by 
commas: 


ALLOCATABLE 

INTRINSIC 

PRIVATE 

DIMENSION 

OPTIONAL 

PUBLIC 

EXTERNAL 

PARAMETER 

SAVE 

INTENT 

POINTER 

TARGET 


If attrib-list is present, it must be foil owed by the double colon. 
For information about individual attributes, seethe 
corresponding statement in this chapter. 
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LOGICAL 


Description 


Examples 


Related statements 


entity-list 

is a list of entities, separated by commas. Each entity takes the 
form: 

name [(array-spec)] [= initialization-expr] 
where: 
name 

is the name of a variable or function 
array-spec 

is a comma-separated list of dimension bounds 
initial izati on-expr 

is a logical constant expression. If initial izati on-expr is 
present, entity-list must be preceded by the double 
colon. 

The logical statement is constrained by the rules for type declaration 
statements, including the requirement that it precede all executable 
statements. 

As a portability extension, H P Fortran allows the following syntax for 
specifying the length of an entity: 

name [ *len ] [( array-spec )] [= initial izati on-expr] 

If (array-spec) is specified, *len may appear on either side of (array- 
spec) . If name appears with *len, it overrides the length specified by 

LOG I CAL* Size. 

The following are valid declarations: 

LOGICAL logl, log2 

LOGICAL(KIND=2) :: log3 

LOGICAL(2), PARAMETER :: test=.TRUE. 

! initialize an array, using an array constructor 
LOGICAL, DIMENSION(2) :: lvec=(/.TRUE.,.FALSE./) 

! use the slash notation (an HP extension) to initialize 
LOGICAL logl/.TRUE./, log2/.FALSE./ ! note, no double colon 

! the following declarations are equivalent; the second uses the 
! HP length specification extension 
LOGICAL (KIND = 8) log8 
LOGICAL*! log8*8 

INTEGER 
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LOGICAL 


Related concepts 


For related information, see the foil owing: 

• 'Type declaration for intrinsic types” on page24 

• "Implicit typing" on page 28 

• "Array declarations"on page54 

• "Array constructors" on page 71 

• "E xpressi ons" on page 80 

• "KIN D(X)" on page 537 
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Description 
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map (extension) 


map (extension) 

Defines a union within a structure. 

MAP 

field-def 


END MAP 

field-def 

is one of the foil owing: 

• A type declaration statement 

• Another nested structure 

• A nested record 

• A union definition 

The map statement is an HP compatibility extension that is used with 
the union statement to define a union within a structure. For detailed 
information about the map and union statements, see "structure 
(extension)" on page 437. 
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MODULE 


Syntax 


Description 


Examples 


MODULE 

I introduces a module. 

module module-name 

module-name 

is a unique module name. 

Modules are nonexecutable program units that can contain type 
definitions, object declarations, procedure definitions (module 
procedures), external procedure interfaces, user-defined generic names, 
and user-defined operators and assignments. Any such definitions not 
specified to be private tothe module containing them are availableto 
those program units that specify the module in a use statement. 
Modules provide a convenient sharing and encapsulation mechanism for 
data, types, procedures, and procedure interfaces. 


! Make data objects and a data type sharable via a module 
MODULE shared 

COMPLEX gtx (100, 6) 

REAL, ALLOCATABLE :: y(:), z ( :, :) 

TYPE peak_item 

REAL peak_val, energy 
TYPE(peak_item), POINTER :: next 
END TYPE peak_item 
END MODULE shared 

! Define a data abstraction for rational arithmetic via a module 
MODULE rational_arithmetic 
TYPE rational 
PRIVATE 

INTEGER numerator, denominator 
END TYPE rational ! Generic extension of = 

INTERFACE ASSIGNMENT (=) 

MODULE PROCEDURE eqrr, eqri, eqir 
END INTERFACE 

INTERFACE OPERATOR (+) ! Generic extension of + 

MODULE PROCEDURE addrr, addri, addir 
END INTERFACE 

CONTAINS 

FUNCTION eqrr (...) ! A specific definition of = 

FUNCTION addrr (...) ! A specific definition of + 

END MODULE rational_arithmetic 
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MODULE 

CONTAINS, END, PRIVATE, PUBLIC,and USE 

For more information about modules, see "Modules” on page 161. 
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MODULE PROCEDURE 


Syntax 


Description 


Examples 


MODULE PROCEDURE 

Specifies module procedures in a generic interface. 

module procedure modul e-procedure-name-l ist 

mod u I e- proced u re- n a me-l i st 

is a comma-separated list of module-procedure-names. 

A module procedure statement appears within an interface block. It is 
used when the specification is generic and a specific procedure is defined 
within the module rather than as an external procedure. TheMODULE 
procedure statement only names the subprograms; it does not contain 
the definition of the interface. The named subprograms must be defined 
within the current moduleor within another modulethat is accessible by 
use association. 

MODULE path 

! module data environment; module procedures contained in this 
! module have access to this data environment 
REAL x, y, z 

! Generic name substance for procedures air and water 
INTERFACE substance 

MODULE PROCEDURE air, water 
END INTERFACE 
INTERFACE OPERATOR (*) 

MODULE PROCEDURE rational_multiply 
END INTERFACE 

! Module procedures are preceded by CONTAINS 
CONTAINS 

SUBROUTINE air (contents) 

END SUBROUTINE air 
SUBROUTINE water (x, a, z) 

! x is a dummy argument, y is from the module data 
! environment 
a = x + y 

END SUBROUTINE water 

FUNCTION rational_multiply (x, y) 

TYPE (rational) :: rational_multiply 
TYPE (rational), INTENT (IN) :: x, y 
rational_multiply = ... 

END FUNCTION rational_multiply 
END MODULE path 
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MODULE PROCEDURE 

Related statements function, subroutine, and interface 

Related concepts For information about module procedures, see "Module program unit" on 
page 161. 
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NAMELIST 


Syntax 


Description 


NAMELIST 

Names a group of variables for I/O processing. 

namelist /group-name/var-list [ [ , ]/group-name/var-list ]... 
group-name 

is a unique namelist group name. 

var-list 

is a comma-separated list of scalar and array variable names. 

The namelist statement declares var-list as a namelist group and 
associates the group with group-name 

Variables appearing in var-list may be of any type, including objects of 
derived types or their components, saved variables, variables on the local 
stack, and subroutine parameters. The following, however, are not 
allowed: 

• Record or composite references 

• Poi nters or thei r targets 

• Automatic objects 

• Allocatable array 

• Character substrings 

• Assumed-size array parameters 

• Adjustable-size array parameters 

• Assumed-size character parameters 

• I ndividual components of a derived type object 

The var-list explicitly defines which items may be read or written in a 
namelist-directed I/O statement. It is not necessary for every item in var- 
list to be defined in namelist-directed input, but every input item must 
belong to the namelist group. The order of items in var-list determines 
the order of the values written in namelist-directed output. 
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NAMELIST 


Examples 


Related statements 
Related concepts 


More than one namelist statement with the same group-name may 
appear within the same scoping unit. Each successive var-list in multiple 
namelist statements with the same group-name is treated as a 
continuation of the list for group-name 

The same variable name may appear in different namelist statements 
within thesamescoping unit. 

PROGRAM 

INTEGER i, j(10) 

CHARACTER*10 c 
NAMELIST /nl/ i, j, c 
! Define the namelist group nl 
READ (UNIT=5,NML=nl) 

WRITE (6, nl) 

END 

When this program is compiled and executed with the following input 
record: 

&nl 

j(8) =6, 7, 8 
i = 5c = 'xxxxxxxxx' 
j = 5*0, -1, 2 
c (2 : 6) = ' abcde ' 

/ 

its output is: 

Snl 

I =5 

J =00000-12678 

C ='xabcdexxx' 

/ 

ACCEPT, OPEN, INQUIRE, PRINT, READ, and WRITE 

Namelist-directed I/O is described in "Namelist-directed I/O” on 
page 183. 
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NULLIFY 


Syntax 

Description 

Examples 


Related statements 
Related concepts 


NULLIFY 

Disassociates a pointer from a target. 

nullify (pointer-objart-list) 

pointer-object-list 

is a comma-separated list of variable names and derived-type 
components. 

The nullify statement disassociates a pointer from any target. A 
nullify statement is also used to change the status of a pointer from 
undefined to disassociated. 

The following example shows the declaration and use of a variable with 
the pointer attribute: 

REAL, TARGET :: value ! value can be target 
REAL, POINTER :: pt ! for the pointer 
pt.pt => value ! Associate pt with value 

NULLIFY (pt) ! Disassociate pt 

! ASSOCIATED intrinsic is valid in next statement if (and only 
! if) pt has been previously allocated, assigned (as above), or 
! nullified (as above) 

IF (.NOT.ASSOCIATED(pt)) pt => x 

The next example shows how a derived type can be used in list 
processing applications: 

TYPE list_node 
INTEGER value 

TYPE (list_node), POINTER :: next 
END TYPE list_node 
TYPE (list_node), POINTER :: list 
ALLOCATE (list) ! Create new list node 

list % value = 28 ! Initialize data field 

NULLIFY (list % next) ! Nullify pointer to the next node 

ALLOCATE, DEALLOCATE, POINTER, and TARGET 

For information about pointers, see "Pointers” on page47. 
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Syntax 


Description 
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on (extension) 


on (extension) 

Specifies the action totakewhen program execution is interrupted. 

on interrupt-condition action 
interrupt-condition 

is the interrupt to be handled, either an arithmetic error or a 
keyboard interrupt. 

action 

is one of the foil owing: 

• call trap-routine 

• ABORT 

• IGNORE 

where: 


trap-routine 

is an external subroutine name. 

The on statement is an HP extension. It is an executable statement that 
specifies the action to betaken after the occurrence of an exception that 
interrupts program execution. 

For each interrupt-condition, you can specify one of the foil owing actions: 

• call: specifies a subroutine to be cal led. 

• abort: causes the program to abort. 

• ignore: causes the interrupt to be ignored. 

Table 51 lists the range of values for interrupt-condition. The first 
column identifies the type of trap; thesecond gives the keywords that 
must appear on the on statement, immediately foil owing the word on; 
and thethird column gives equivalent keywords you can specify instead 
of those in thesecond column. For example, the foil owing on statement 
causes the program to trap an attempt to divide by zero with 8-byte 
floating-point operands, passing control to a user-written trap handler 
called div_zero_trap: 
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ON REAL(8) DIV 0 CALL trap_div_by_zero 

The following on statement does the same thing, but it specifies the 
equivalent keywords from the third column of thetable: 

ON DOUBLE PRECISION DIV 0 CALL trap_div_by_zero 

Table 51 Exceptions handled by the ON statement 


Exceptions 

Exception keywords 

Alternate keywords 

Division by zero 

REAL(4) DIV 0 

REAL DIV 0 

REAL(8) DIV 0 

DOUBLE PRECISION DIV 0 

REAL(16) DIV 0 

(none) 

INTEGER(2) DIV 0 

INTEGER*2 DIV 0 

INTEGER(4) DIV 0 

INTEGER DIV 0 

Overflow 

REAL(4) OVERFLOW 

REAL OVERFLOW 

REAL(8) OVERFLOW 

DOUBLE PRECISION OVERFLOW 

REAL(16) OVERFLOW 

(none) 

INTEGER(2) OVERFLOW 

INTEGER*2 OVERFLOW 

INTEGER(4) OVERFLOW 

INTEGER OVERFLOW 

U nderflow 

REAL(4) UNDERFLOW 

REAL UNDERFLOW 

REAL(8) UNDERFLOW 

DOUBLE PRECISION UNDERFLOW 

REAL(16) UNDERFLOW 

(none) 

1 nvalid (illegal) operation 

REAL(4) ILLEGAL 

REAL ILLEGAL 

REAL(8) ILLEGAL 

DOUBLE PRECISION ILLEGAL 

REAL(16) ILLEGAL 

(none) 

1 nexact result 

REAL(16) INEXACT 

(none) 

REAL(4) INEXACT 

REAL INEXACT 

REAL(8) INEXACT 

DOUBLE PRECISION INEXACT 

Control-C 

CONTROLC 

(none) 
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NOTE 


Examples 


Related concepts 


HP Fortran statements 

on (extension) 


To use the on statement to trap for integer overflow, you must also 
includethe $hp$ check_overflow directive. This is described in the 
HP Fortran Programmer’s Guide. 

Using the on statement at optimization levels 2 and above is restricted. 
When compiling at optimization level 2 or above, the optimizer makes 
assumptions about the program that do not take into account the 
behavior of procedures called by theoN statement. Such procedures must 
therefore be "well-behaved"—in particular, they must meet the following 
criteria: 

• The ON procedure must not assume that any variable in the interrupted 
procedure or in its caller has its current value. (The optimizer may have 
placed the variable in a register to be stored there until after the call to 
the interrupted procedure is complete.) 

• The ON procedure must not change the value of any variable in the 
interrupted procedure or in its caller if the effect of the ON procedure is to 
return program control to the point of interrupt. 

If you include the on statement in a program that is compiled at optimization 
level 2 or higher and the program takes an exception, the results may vary 
from those you would get from the unoptimized program or from the same 
program without the on statement. 

The following example uses theoN statement to call the procedure 
trap_div_by_zero if thefunction do_div is passed 0 in argument y. If 
trap_div_by_zero is called, it prints an error messageand assigns Oto 
the result. 

REAL FUNCTION do_div(x, y) 

REAL :: x, y 

ON REAL DIV 0 CALL trap 

do_div = x/y ! causes an interrupt if y = 0 
RETURN 

END FUNCTION do_div 

SUBROUTINE trap (res) 

REAL :: res 

PRINT *, "Don't do that." 
res = 0 

END SUBROUTINE trap 

TheHP Fortran Programmer's Guide provides detailed information 
about using the on statement, including example programs that use the 
on statement. 
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OPEN 


Syntax 


OPEN 

Connects fileto a unit. 

open (io-specitier-list) 
io-specifier-list 

is a list of the foil owing comma-separated I/O specifiers: 
[uNiT=]unit 

specifies the unit to connect to an external file, unit 
must be an integer expression that evaluates to a 
number greater than 0. If the optional keyword unit= 
is omitted, unit must be the first item in io-specifier- 
list. 

ACCESS=character-expression 

specifies the method of file access, character-expression 
can be one of the following arguments: 


'direct 1 Open file for direct access. 

'sequential' Open file for sequential access 
(default). 


' position= To open a file for append (to 
append' position thefilejust beforethe 

end-of-file record) 
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ACTiON=character-expression 

specifies the allowed data-transfer operations, 
character-expression can be one of the following 
arguments: 


'read 1 Do not allow write and 

endfile statements. 

'write ' Do not allow read statements. 

'readwrite' Allow any data transfer 

statement (default). 

BLANK=character-expressi on 

specifies treatment of blanks within numeric data on 
input. This specifier is applicabletoformatted input 
only, character-expression can be one of the following 
arguments: 


'null 1 Ignore blanks (default). 

' zero ' Substitute zeroes for blanks. 
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OPEN 


DELiM=character-expression 

specifies the delimiter to use (if any) when delimiting 
character constants in list-directed and namelist- 
directed formatting. This specifier is applicableto 
formatted output only, character-expression can be one 
of the foil owing arguments: 


' apostrophe ' U se the apostrophe to del i mit 

character constants in list- 
directed and namelist-directed 
formatting. 

'quote 1 Use double-quotation marks to 

delimit character constants in 
list-directed and namelist- 
directed formatting. 


'none' Use no deli miter to deli mit 

character constants in list- 
directed and namelist-directed 
formatting (default). 


ERR=stmt-label 

specifies the label of the executable statement to which 
control passes if an error occurs during statement 
execution. 

f i LE=character-expressi on 

specifies the name of the file to be connected to unit, 
character-expression can also be the ASCI I 
representation of a device file. If this specifier does not 
appear in the open statement, a temporary scratch file 
is created. 
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FORM=character-expressi on 

specifies whether the file is connected for formatted or 
unformatted I/O. character-expression can be one of the 
following arguments: 


'formatted' Specify formatted I /O. If the file 
is to be opened for sequential 
access, this is the default. 

'unformatted' Specify unformatted I/O. If the 
file is to be opened for direct 
access, this is the default. 

i o s tat= i nteger-va r i a bl e 

returns the I/O status after the statement executes. If 
thestatement successfully executes, integer-variable is 
set to zero. If an error occurs, it is set to a positive 
integer that indicates which error occurred. 

PAD=character-expressi on 

specifies whether or not to pad the input record with 
blanks if the record contains fewer characters than 
required by the format specification. This specifier is 
applicable to formatted input only, character-expression 
can be one of the foil owing arguments: 


'yes' Pad input records with blanks 

(if necessary) to fill it out to 
length required by format 
specification (default). 

'no' Do not pad input record with 

blanks if it is not as long as 
record specified by format 
specification. 
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posiTiON=ch a r acter-expressi on 

specifies the position of an existing file to be opened for 
sequential access, character-expression can be one of 
the following arguments: 


ASIS ' 

Leave file position unchanged 


(default). 

REWIND' 

Position the file at its start. 

APPEND' 

Position thefilejust before the 


end-of-file record. 


If thefileto be opened does not exist, this specifier is 
ignored. New files are always positioned at their start. 

RECL=i nteger-expressi on 

specifies the length of each record in a file to be opened 
for direct access. The length is measured in characters 
(bytes). This specifier must be present when a file is 
opened for direct access and is ignored if file is opened 
for sequential access. 
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STATUs=character-expre5sion 

specifies the state of the filewhen it is opened, 
character-expression can be one of the following 
arguments: 


'old 1 Open an existing file. file= 

must also be specified and the 
named file must exist. 

'new' Create a new file, file= must 

also be specified and the named 
file must not exist. 

'unknown' If thefilenamed in file= 

exists, open it with the status of 
old; if it does not exist, open it 
with the status of new. This is 
the default status. 

'replace ' If the file does not exist, create 
it with a status of old; if it does 
exist, delete it and open it with 
a status of new. If 

STATUS='REPLACE ' is 

specified, file= must also be 
specified. 

' scratch ' Create a scratch file. file= 

specifier must not be specified. 
For information about scratch 
files, see "Scratch files" on 
page 173. 

The open statement connects a unit to a file so that data can be read 
from or written to that file. Once a file is connected to a unit, the unit can 
be referenced by any program unit in the program. 

I/O specifiers do not have to appear in any specific order in the open 
statement. However, if the optional keyword unit= is omitted, unit must 
be the first item in the list. 
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Examples 


Only oneunit can be connected toa fileat a time. That is, thesamefile 
cannot be connected to two different units. Attempting to open a file that 
is connected to a different unit will produce undefined results. 

However, multiple opens can be performed on the same unit. I n other 
words, if a unit is connected to a file that exists, it is permissible to 
execute another open statement for the same unit. If file= specifies a 
different file, the previously opened file is automatically closed beforethe 
second file is connected to the unit. If file= specifies the same file, the 
file remains connected in the same position; the values of the blank=, 
delim=, pad=, err=, and iostat= specifiers can be changed, but 
attempts to change the values of any of the other specifiers will be 
ignored. 

The following examples illustrate different uses of the open statement. 

Opening a file for sequential access 

The following open statement connects theexisting file inv to unit 10 
and opens it (by default) for sequential access. Only read statements are 
permitted to perform data transfers. I f an error occurs, control passes to 
the executable statement labeled 100 and the error code is placed in the 
variable ios: 

OPEN (10, FILE='inv', ERR=100, I0STAT=ios, & 

ACTION='READ', STATUS='OLD') 

Opening a file for direct access 

The following open statement opens thefile whose name is contained in 
the variable nexti, connecting it to unit 4 as a formatted, direct-access 
file with a record length of 50 characters: 

OPEN(ACCESS="DIRECT", UNIT=4, RECL=50, & 

FORM="FORMATTED", FILE=nextl) 

Opening a device for I/O transfers 

The next example connects the system device /dev/console to unit 6; 
all data transfers that specify unit 6 will go to this device: 

OPEN(6,FILE='/DEV/CONSOLE') 
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Opening a scratch file 

The following two open statements produce the same results: open a 
scratch filethat is connected tounit 19 (if theFiLE=namespecifier had 
appeared in the first statement, the named file would have been opened 
instead): 

OPEN (UNIT=19) 

OPEN (UNIT=19, STATUS="SCRATCH") 

I/O specifiers in an OPEN statement 

Becausethe I/O specifiers that can be used in an open statement do not 
have to appear in any specific order, the following three open statements 
are all equivalent: 

OPEN(UNIT=3, STATUS^'NEW', FILE='OUT.DAT') 

OPEN(3, STATUS='NEW', FILE='OUT.DAT') 

OPEN(STATUS='NEW', FILE='OUT.DAT', UNIT=3) 

Note, however, that in the second open statement the number 3 must 
appear first because of the omission of the optional keyword unit=. 
Thus, the following open statement is illegal: 

OPEN(STATUS='NEW', 3, FILE='OUT.DAT') ! illegal 

CLOSE, INQUIRE, READ, and WRITE 

For information about I/O concepts and examples of programs that 
perform I/O, see Chapter 8, "I/O and file handling," on page 171. For 
information about I/O formatting, seeChapter 9, "I/O formatting,"on 
page 205. 
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Syntax 


Description 


optional (statement and attribute) 

I dentifies optional arguments for procedures. 

The syntax of the type declaration statement with the optional 
attribute is: 

type , attrib-list : : dummy-argument-name-list 
type 

is a valid type specification (integer, real, logical, 
character, type ( name), etc.), 
attrib-list 

is a comma-separated list of attributes including optional and 
optionally those attributes compatible with it, namely: 


dimension 

INTENT 

TARGET 

EXTERNAL 

POINTER 

VOLATILE 


d u m my-a r gu men t-n a me-1 i st 

is a comma-separated list of dummy-argument-names. 

The syntax of the optional statement is: 

optional [::] dummy-argument-name-list 

If a dummy argument has the optional attribute, the corresponding 
actual argument need not appear in a procedure reference. I n cases 
where there are arguments that generally do not change from one 
reference to another, it is convenient to specify that the arguments are 
optional and provide default values for them. They can then be omitted 
from references i n these general cases. The presence of an optional 
argument in a procedure may be determined by using the present 
intrinsic function. 

M any uses of the entry statement in FORTRAN 77 programs can be 
replaced by the use of optional arguments. 

The following restrictions apply to the use of the optional attribute: 
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Examples 


• The optional attribute may be specified only for dummy arguments. 
It may occur in a subprogram and in any corresponding interface 
body 

• An optional dummy argument whose actual argument is not present 
may not be referenced or defined (or invoked if it is a dummy 
procedure), except that it may be passed to another procedure as an 
optional argument and will be considered not present. 

• When an argument is omitted in a procedure reference, all arguments 
that follow it must use the keyword form. 

• I f a procedure has an optional argument, the procedure i nterface 
must be explicit. 


The following are two examples of the optional statement. I n the first 
example, the cal I to the subroutine trip can legally omit the path 
argument because it has the optional attribute: 

CALL TRIP ( distance = 17.0 ) ! path is omitted 

SUBROUTINE trip ( distance, path ) 

OPTIONAL distance, path 

I n the next example, the subroutine plot uses the present function to 
determine whether or not to execute code that depends on the presence of 
arguments that have the optional attribute: 


SUBROUTINE plot (pts, o_xaxis, o_yaxis, smooth) 

TYPE (point) pts 

REAL, OPTIONAL :: o_xaxis, o_yaxis 
! Origin - default (0.,0.) 

LOGICAL, OPTIONAL :: smooth 
REAL ox, oy 

IF (PRESENT (o_xaxis)) THEN 
ox = o_xaxis 
ELSE 

ox = 0. 

! Note that the o_xaxis dummy argument cannot be referenced 
! the actual argument is not present. The same applies 
! to o_yaxis (below). 

END IF 

IF (PRESENT (o_yaxis)) THEN 
oy = o_yaxis 
ELSE 


oy = 0. 

END IF 

IF (PRESENT(smooth)) THEN 
IF (smooth) THEN 

RETURN 
END IF 
END IF 


Smooth algorithm 


if 
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END SUBROUTINE 


plot 


! Plot points 


! Some valid calls to plot. 

CALL plot (points) 

CALL plot (observed, o_xaxis = 100., o_yaxis = 1000.) 
CALL plot (random_pts, smooth = .TRUE.) 


Related statements subroutine and function 


Related concepts For related information, see the foil owing: 

• 'Type declaration for intrinsic types" on page 24 

• "Arguments”on page 139 

• The description of the present intrinsic in Chapter 11, "I ntrinsic 
procedures," on page 475 
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options (extension) 

Lowers the optimization level used by the HP Fortran compiler. 

options +on 

where +on (or -on) specifies a level of optimization that is equal to or 
less than the level specified on the command line. 

The options statement is an extension of HP Fortran and is used to 
specify a level of optimization that is equal to or less than the level 
specified on the command line. Ifthelevel specified by the options 
statement is higher than that specified on the command line, the 
statement is ignored. 

The OPTIONS statement must be placed outside all program units. The 
changed level of optimization applies to the beginning of the next program 
unit and remains in effect for all succeeding program units or until 
superseded by another OPTIONS statement or by the !$HP$ OPTIMIZE 
directive. 

The OPTIONS statement differs from the OPTIMIZE directive in that the 
OPTIMIZE directive enables or disables optimization but does not change 
the optimization level. The !$HP$ OPTIMIZE directive is described in the 

HP Fortran Programmer's Guide 

The OPTIMIZE directive takes precedence over the OPTIONS statement: 
when the OPTIMIZE directive is used to disable optimization, any 
subsequent OPTIONS statement has no effect until a later directive enables 
optimization. 

I n the following example, the first OPTIONS statement optimizes the 
subroutine go_fast at optimization level 3. The second OPTI ONS 
statement lowers the optimization level to 2. 

OPTIONS +03 
SUBROUTINE go_fast 

END SUBROUTINE go_fast 

OPTIONS +02 

SUBROUTINE not_so_fast 
END SUBROUTINE not_so_fast 
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Syntax 


parameter (statement and attribute) 

Defines a named constant. 

A type declaration statement with the parameter attribute is: 
type, attrib-list :: enamel = cexprl[, cnameZ = ce<pr2] ... 
type 

is a valid type specification (integer, real, logical, 
character, type (name), etc.), 
attrib-list 

is a comma-separated list of attributes including parameter 
and optionally those attributes compatible with it, namely: 


DIMENSION 

PUBLIC 

PRIVATE 

SAVE 


Specifying the save attribute in a parameter statement has no 
effect. 

cname 

is the name that will represent the constant. 

cexpr 

is an initialization expression that evaluates to the constant 
represented by cname. I n the case of an array constant, cexpr 
must be an array constructor. I n the case of a derived type 
constant, cexpr must be a structure constructor. 

The syntax of the parameter statement is: 
parameter (enamel = cexpr1 [, cname2 = cexpr2]...) 
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The parameter statement associates a symbolic name with a constant. 
A symbolic name defined in a parameter statement is known as a 
named constant. A named constant must not become defined more 
than once in a program unit. Once defined, it can be used only as a 
named constant. This means that a named constant cannot be assigned a 
value like a variable. 

When the parameter attribute is used, the value of the named constant 
must be provided by the initialization part of the statement in which the 
parameter attribute appears. 

The type of a named constant is determined by the implicit typing rules, 
unless its type is specified by a type declaration statement prior to its 
first appearance in a parameter statement or by a type declaration 
statement that includes parameter as oneof its attributes. If a 
parameter statement declares and implicitly types a named constant, 
the named constant may appear in a subsequent type declaration or 
implicit statement, but only to confirm the type of the named 
constant. 

When the type of the symbolic name and the constant do not agree, the 
valueof the named constant is assigned in accordance with assignment 
statement type-conversion rules, as given in Table 14. 

The following rules apply to type agreement between theconstant and 
the symbolic name: 

• If cnameis of numeric type, cexpr must be an arithmetic constant 
expression. 

• If cnameis of type character, the corresponding cexpr mustbea 
character constant expression. 

• If cnameis of type logical, the corresponding cexpr may be either an 
arithmetic or logical constant expression. 

Any symbolic name of a constant that appears in cexpr must have been 
defined previously in the same or a different parameter statement in 
the same program unit. For example, the expression in the second 
parameter statement below is built from theexpression in the first 
parameter statement, and is legal: 

PARAMETER (limit = 1000) 

PARAMETER (limit_plus_l = limit t 1) 
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Examples 


The logical operators (.eq., .ne., . lt., . le., . gt., and . ge.), as well 
as the following intrinsicfunctions, can appear in the parameter 
statement: 


ABS 

IAND 

IXOR 

MAX 

CHAR 

I CHAR 

LEN 

MIN 

CMP LX 

IEOR 

LGE 

MOD 

CON JB 

I MAG 

LGT 

NINT 

DIM 

IOR 

LLE 

NOT 

DPROD 

ISHFT 

LLT 



If these intrinsicfunctions are used in a parameter statement, their 
arguments must be constants. 

If the named constant is of type character and its length is not specified, 
the length must be specified in a type declaration statement or 
implicit statement prior tothefirst appearance of the named constant. 
Its type and/or length must not be changed by subsequent statements, 
including implicit statements. If a symbolic name of type 
character* (*) is defined in a parameter statement, its length 
becomes the length of the expression assigned to it. 

If the named constant is an array, the bounds must be explicit and 
determined by an initialization expression. 

Once such a symbolic name is defined, that name can appear in any 
subsequent statement of the defining program unit as a constant in an 
expression or data statement. 

! PARAMETER used in a type declaration statement as an attribute 
REAL, DIMENSION(4), PARAMETER :: const = & 

(/1.2, 1.45, 0.9, 24.3/) 

INTEGER year 

! PARAMETER used as a statement 
PARAMETER year = 1996 

! Type declaration statement declaring a derived-type constant 
TYPE (postal_info), PARAMETER :: package = & 
postal_info (9.5, (/10.0, 5.5, 2.25/) ) 
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For information about the type declaration statement, see'Type 
declaration for intrinsic types” on page 24. 
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Description 


PAUSE 

Temporarily stops program execution. 

pause pause-code 
pause-code 

is a character constant or a list of up to 5 digits. 

The pause statement suspends program execution and prints a message, 
depending on whether digits, characters, or nothing has been specified in 
the pause statement: 

• If digits, the message "pause digits" is written to standard error. 

• If a character expression, the message "pause character-expression" 
is written to standard error. 

• If nothing appears after pause, the word "pause" is written to 
standard error. 

After displaying the appropriate message, the pause statement writes to 
standard output one of two messages that give information on resuming 
the program. If the standard input device is a terminal, the message is: 

To resume program execution, type GO. 

At this point the program is suspended and remains so until the operator 
types the word go and presses the Return key. The program will 
terminate if anything other than go is entered. 

If thestandard input device is other than a terminal, the message is: 

To resume execution, execute a kill -15 pid & 
command 

where pid is the unique process identification number of the suspended 
program. This command can be issued at any terminal at which the user 
is logged in. 
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PAUSE 

! Write "PAUSE 7777" to standard error 
PAUSE 7777 

! Write "PAUSE MOUNT TAPE" to standard error 
PAUSE 'MOUNT TAPE' 

! Write "PAUSE" to standard error 
PAUSE 

STOP 

For information about flow control statements, see "Flow control 
statements" on page 112. 
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Description 


pointer (Cray-style extension) 

Declares Cray-style pointers and their objects. 

pointer (pointerl, pointesl) [, (pointer2, pointed)]... 
poi nter 

is a pointer. 

poi ntee 

is a variable name or array declarator. 

H P Fortran supports both the standard Fortran 90 pointer statement 
as well as the Cray-style pointer statement. The Cray-style pointer 
statement is supported for compatibility with older, FORTRAN 77 
programs. Thefollowing information applies only to the Cray-style 
pointer statement; the Fortran 90 pointer statement is described in 
"pointer (statement and attribute)" on page400. 

Thefollowing restrictions apply to poi nter: 

• It should beof type integer (4) . If it is not, thecompiler interprets 
its type as integer (4) regardless of other implicit or explicit type 
declarations. 

• It cannot be declared of any other data type. 

• Another pointer cannot point to it. 

• It cannot appear in a parameter or data statement. 

• It cannot be in a derived type object. 

You can increase the size of pointer with the+autodbi or +autodbi4 
option; see "Option Descriptions” on page 576. 

poi ntee may beof any type, including an array, a derived type, a record, 
or a character string. 

Thefollowing restrictions apply to poi ntee: 

• It cannot be a dummy argument, function name, function value, 
common block element, automatic object, generic interface block 
name, or derived type. 
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• It cannot be used in a common, data, equivalence, or namelist 

statement. 

• It cannot have any of thefollowing attributes: allocatable, 

EXTERNAL, INTENT, INTRINSIC, OPTIONAL, PARAMETER, POINTER, 

save, and target. 

• Pointeesthat are arrays with nonconstant bounds can be used only in 
subroutines and functions, not in main programs. 

• Variables used in an array-bound expression that appears in a 
pointer statement must be either subprogram formal arguments or 
common block variables. The value of the expression cannot change 
after subprogram entry. 

You associate memory with a pointer by assigning it the address of an 
object. Typically, this is done with the iibU77 function, loc. The loc 
function returns the address of its argument, which can be assigned to a 
pointer. Thefollowing example assigns 0 tothe pointee i: 

INTEGER i, j 
POINTER (p, i) 

P = LOC(j) 

j = 0 

You can also use the malloc intrinsic to allocate memory from the heap 
and assign its return valueto a pointer. Once you aredone with the 
allocated memory, you should use the free intrinsicto release the 
memory so that it is availablefor reuse. 

If you are using the pointer to manipulate a device that resides at a fixed 
address, you can assign the address tothe pointer, using either an 
integer constant or integer expression. 

Under certain circumstances, Cray-style pointers can cause erratic 
program behavior—especially if the program has been optimized. To 
ensure correct behavior, observe the following: 

• Subroutines and functions must not save the address of any of their 
arguments between calls. 

• A function must not return the address of any of its arguments. 

• Only those variables whose addresses are explicitly taken with the 
loc function must be referenced through a pointer. 
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Examples 


Related statements 
Related concepts 


I n the following example, the intrinsic malloc returns either the 
address of the block of memory it allocated or 0 if malloc was unable to 
allocate enough memory. The formal argument neiem contains the 
number of array elements and is multiplied by 4 to obtain the number of 
bytes that malloc is to allocate. The free intrinsic returns memory to 
the heap for reuse. 

SUBROUTINE print_iarr(neiem) 

POINTER (p, iarr(neiem)) 

p = MALLOC( 4 *nelem ) 

IF (p.EQ.O) THEN 

PRINT *, 'MALLOC failed.' 

ELSE 

DO i = 1 ,neiem 
iarr(i) = i 
END DO 

PRINT *, (iarr(i),i=l,neiem) 

CALL FREE( p ) 

ENDIF 

RETURN 

END SUBROUTINE print_iarr 

pointer (standard Fortran 90) 

For related information, see the foil owing: 

• "Poi nters” on page 47 

• The description of the loc routine in Table 64 

• The descriptions of the malloc and free intrinsics in Chapter 11, 

"I ntrinsic procedures," on page 475 
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pointer (statement and attribute) 

Specifies variables with the POINTER attribute. 

The syntax of a type declaration statement with the pointer attribute 
is: 

type, attrib-list : : dummy-argument-name-list 
type 

is a valid type specification (integer, real, logical, 
character, type ( name), etc,), 
attrib-list 

is a comma-separated list of attributes including pointer and 
optionally those attributes compatible with it, namely: 


DIMENSION 

PRIVATE 

SAVE 

OPTIONAL 

PUBLIC 



d u m my-a r gu men t-n a me-1 i st 

is a comma-separated list of dummy-argument-names. 

The syntax of the pointer statement is: 

pointer [: : ] object-name [ (deferred-shape-spec-list) ] 

[, object-name [ (deferred-shape-spec-list) ] ] ... 
object-name 

is a data object or function result, 
d ef er red-sh a pe-spec-1 i st 

is a comma-separated list of colons. 

A pointer attribute or statement specifies that the named variables 
may be pointers to some target object. Pointers provide a capability for 
creating dynamic objects, such as dynamic-sized arrays and linked lists. 
An object with a pointer attribute initially has no space reserved for its 
target. A pointer is assigned space for its target when an allocate 
statement is executed or when it is assigned to point to a target using a 
pointer assignment statement. 

I n the first example, two array pointers are declared and used. 
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! Extents are not specified; they are determined during execution 
REAL, POINTER :: weight 
REAL, POINTER :: w_reg 

READ *, i, j, k 

ALLOCATE (weight (i, j, k)) ! create weight 

! w_reg is an alias for an array section 

w_reg => weight (3:i-2, 3:j — 2, 3:k-2) 

avg_w = sum (w_reg) / ((i-4) * (j — 4) * (k-4)) 

DEALLOCATE (weight) ! weight no longer needed 

The next example illustrates the use of pointers in a list-processing 
application. 

TYPE link 

REAL value 

TYPE (link), POINTER :: next 
END TYPE link 

TYPE (link), POINTER :: list, save_list 
NULLIFY (list) ! Initialize list 

DO 

READ (*, *, IOSTAT = no_more) value 
IF (no_more /= 0) EXIT 
save_list => list 

ALLOCATE (list) ! Add link to head of list 
list % value = value 
list % next => save_list 
END DO 

! Linked list removed when no longer needed 
DO 

IF (.NOT.ASSOCIATED (list) ) EXIT 
save_list => list % next 
DEALLOCATE (list) 
list => save_list 
END DO 

Related statements allocate, deallocate, nullify and target 

Related concepts For related information, see the foil owing: 

• "Pointers”on page47 

• "Pointer assignment"on page 97 

• The description of the associated intrinsic in Chapter 11, "I ntrinsic 
procedures,” on page 475. 
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PRINT 

Writes to standard output. 

The syntax of the print statement can take one of two forms: 

• Formatted and list-directed syntax: 
print format [, output-list ] 

• Namelist-directed syntax: 

print name 
format 

is one of the following: 

• An asterisk (*), specifying list-directed I/O. 

• The label of a format statement containing the format 
specification. 

• An integer variablethat has been assigned the label of a 
format statement. 

• An embedded format specification. 

name 

is the name of a namelist group, as previously defined by a 
namelist statement. Using the namelist-directed syntax, the 
print statement sends data in the namelist group to standard 
output. To direct output to a connected file, you must usethe 
write statement and include the nml= specifier, 
output-list 

is a comma-separated list of data items for output. The data 
items can include expressions and implied-DO lists. 

The print statement transfers data from memory to standard output. 
(Unit 6 is preconnected to the FIP-UX standard output.) The print 
statement can be used to perform formatted, list-directed, and namelist- 
directed I/O only. 

Todirect output toa connected file, use the write statement. 
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Examples 


Related statements 
Related concepts 


The examples in this section illustrate different uses of thepRiNT 
statement. 

Formatted output 

The foil owing statement writes the contents of the variables num and 
des to standard output, using the format specification in theFORMAT 
statement at label 10: 

PRINT 10, num, des 

List-directed output 

The following statement uses list-directed formatting to print the literal 
string x= and the value of the variable x: 

PRINT *, 'x=', x 

Embedded format specification 

The following statement uses an embedded format specification to print 
the same output: 

PRINT ' (A2, F8.2) ' , 'x=', x 

Namelist-directed output 

The following statement prints all variables in the namelist group 
coord, using namelist-directed formatting: 

PRINT coord 
FORMAT and WRITE 

For related information, see the foil owing: 

• "List-directed I/O”on page 179 

• "E mbedded format specification" on page 237 

• "I mplied-DO loop" on page 194 
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private (statement and attribute) 

Prevents access to module entities by use association. 

The syntax of a type declaration statement with the private attribute 
is: 

type, attrib-list :: access-id-list 
type 

is a valid type specification (integer, real, logical, 
character, type ( name ), etc.), 
attrib-list 

is a comma-separated list of attributes including private and 
optionally those attributes compatible with it, namely: 


ALLOCATABLE 

INTRINSIC 

SAVE 

DIMENSION 

PARAMETER 

TARGET 

EXTERNAL 

POINTER 



access-id-list 

is a comma-separated list of oneor more of the foil owing: 

• constant-name 

• variable-name 

• procedure-name 

• defined-type-name 

• namelist-group-name 

• operator ( operator ) 

• ASSIGNMENT ( = ) 
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Description 


Examples 


Related statements 


The syntax of the private statement is: 

PRIVATE [[::] aCCeSS-i d-l i St] 

The private attribute may appear only in the specification part of a 
module. The default accessibility in a module is public; it can be 
changed to private using a statement without a list. However, only one 
private accessibility statement without a list is permitted in a module. 

The private attribute in a type statement or in an accessibility 
statement restricts the accessibility of entities such as module variables, 
type definitions, functions, and named constants, use statements may 
restrict accessibility further. 

A derived type may contain a private attributeor an internal private 
statement, if it is defined in a module. The internal private statement 
in a type definition makes the components unavailable outside the 
module even though the type itself might be available. 

The private statement may also be used to restrict access to 
subroutines, generic specifiers, and namelist groups. 

The private specification for a generic name, operator, or assignment 
does not apply to any specific name unless the specific name is the same 
as the generic name. 

MODULE fourier 

REAL :: x, y, z ! PUBLIC (default) 

COMPLEX, PRIVATE :: fft ! PRIVATE, accessible only in module 
TYPE (structure_name), PRIVATE :: structure_a, structure_b 
! a, b and c are accessible only within this module 
PRIVATE a, b, c 

! r, s, and t are accessible outside the module 
PUBLIC r, s, t 
END MODULE fourier 

MODULE place 

PRIVATE ! Change default accessibility to PRIVATE 
INTERFACE OPERATOR ( .st.) 

MODULE PROCEDURE xst 
END INTERFACE 

! make .st. public; everything else is private 
PUBLIC OPERATOR ( .st.) 

LOGICAL, DIMENSION (100) :: It 

CHARACTER(20) :: name 

INTEGER ix, iy 
END MODULE place 

public and use 
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For related information, see the foil owing: 

• 'Type declaration for intrinsic types” on page24 

• "M odules” on page 161 
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Syntax 

Description 


Examples 

Related statements 
Related concepts 


PROGRAM 

Identifies the main program unit. 

program name 
name 

is the name of the program. 

The optional program statement assigns a name to the main program 
unit, name does not have to match the main program's filename. 
However, if the corresponding end program statement specifies a name, 
it must match name. 

If thePROGRAM statement is specified, it must bethefirst statement in 
the main program unit. 

! A program with a name 
PROGRAM main_program 

PRINT *, 'This program doesn't do much.' 

END PROGRAM main_program 

END 

For information about the main program unit, see "Main program"on 
page 125. 
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public (statement and attribute) 

E nables access to module entities by use association. 

The syntax of a type declaration statement with the public attribute is: 

type, attrib-list : : access-id-list 

type 

is a valid type specification (integer, real, logical, 
character, type ( name), etc.), 
attrib-list 

is a comma-separated list of attributes including public and 
optionally those attributes compatible with it, namely: 


ALLOCATABLE 

INTRINSIC 

SAVE 

DIMENSION 

PARAMETER 

TARGET 

EXTERNAL 

POINTER 

VOLATILE 


access-id-list 

is a comma-separated list of oneor more of the foil owing: 

• constant-name 

• variable-name 

• procedure-name 

• defined-type-name 

• namelist-group-name 

• operator ( operator ) 

• ASSIGNMENT ( = ) 
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Description 


Examples 


Related statements 


The syntax of the public statement is: 

public [[::] access-id-liSt] 

The public attribute may appear only in the specification part of a 
module. The default accessibility in a module is public; it can be 
reaffirmed using a public statement without a list. However, only one 
public accessibility statement without a list is permitted in a module. 

The public attribute in a type statement or in an accessibility 
statement permits access to entities such as module variables, type 
definitions, functions, and named constants, use statements may control 
accessibility further. 

A derived type may contain a public attribute or an internal public 
statement, if it is defined in a module. 

The public statement may also be used to permit access to sub routines, 
generic specifiers, and namelist groups. 

The public specification for a generic name, operator, or assignment 
does not apply to any specific name unless the specific name is the same 
as the generic name. 

MODULE fourier 

PUBLIC ! PUBLIC unless explicitly PRIVATE 

COMPLEX, PRIVATE :: fft ! fft accessible only in module 
PRIVATE a, b, c ! accessible only in module 
PUBLIC r, s, t ! accessible outside the module 
END MODULE fourier 

MODULE place 

PRIVATE ! Change default accessibility to PRIVATE 
INTERFACE OPERATOR ( .st. ) 

MODULE PROCEDURE xst 
END INTERFACE 

! Make .st. public; everything else is private 
PUBLIC OPERATOR ( . st. ) 

LOGICAL, DIMENSION (100) :: It 

CHARACTER(20) :: name 

INTEGER ix, iy 
END MODULE PLACE 

PRIVATE and USE 
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For related information, see the foil owing: 

• 'Type declaration for intrinsic types” on page24 

• "M odules” on page 161 


410 


Chapter 10 



HP Fortran statements 

READ 


Syntax 


READ 

I nputs data from external and internal files. 

The syntax of the read statement can take one of the foil owing forms: 

• Long form (for use when reading from a connected file): 
read (io-specifier-list) [input-list] 

• Short form (for use when reading from standard input): 
read format [, input-list] 

• Short namelist-directed form (for use when reading from standard 
input into a namelist group): 

read name 
i o-specifier-list 

is a list of the foil owing comma-separated I/O specifiers: 
[unit=] unit 

specifies the unit connected to the input file, unit can 
be one of the fol I owi ng: 

• The name of a character variable, indicating an internal file 

• An integer expression that evaluates to the unit connected to 
an external file 

• An asterisk, indicating a pre-connection to unit 5 (standard 
input) 

If the optional keyword unit= is omitted, unit must be 
the first item in i o-specifier-list. 

[fmt=] format 

specifies the format specification for formatting the 
data, format can be one of the fol lowing: 

• An asterisk (*), specifying list-directed I/O. 

• The label of a format statement containing the format 
specification. 


Chapter 10 


411 



NOTE 


HP Fortran statements 

READ 


• An integer variable that has been assigned the label of a 
format statement. 

• A character expression that provides the format 
specification. 

If the optional keyword fmt= is omitted, format must 
be the second item in io-specifier-list. 

TheNML= and fmt= specifier may not both appear in the same 
io-specifier-list. 


[nml=] name 

specifies the name of a namelist group for namelist- 
directed input, name must have been defined in a 
namelist statement. If the optional keyword nml= is 
omitted, name must be the second item in the list. The 
first item must be the unit specifier without the 
optional keyword unit=. 

TheNML= and fmt= specifier may not both appear in 
the same io-specifier-list. 

ADVANCE=character-expressi on 

specifies whether to use advancing I/O for this 
statement, character-expression can be one of the 
fol Iowi ng argu ments: 


'yes' Use advancing formatted 

sequential I/O (default). 

'no' Use nonadvancing formatted 

sequential I/O. 

If the advance= specifier appears in io-specifier-list, 
unit must be connected to an external file opened for 
formatted sequential I/O. Also, advance ='no ' must be 
specified if the eor= or size= specifier appear in the 
list. Nonadvancing I/O is incompatible with list- 
directed and namelist I/O. 

END=stmt-label 
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specifies the label of the executable statement to which 
control passes if an end-of-file record is encountered. 
This specifier is only valid for reading files opened for 
sequential access. 

EOR=stmt-label 

specifies the label of the executable statement to which 
control passes if an end-of-record condition is 
encountered. This specifier may appear in io-specifier- 
list only if advance= 'no ' also appears in the list. 

i o s tat= i nteger-va r i a bl e 

returns the I/O status after the statement executes. If 
thestatement successfully executes, integer-variable is 
set to zero. If an end-of-file record is encountered 
without an error condition, it is set to a negative 
integer. If an error occurs, integer-variableis set to a 
positive integer that indicates which error occurred. 

REC=i nteger-expressi on 

specifies the number of the record to be read from a file 
connected for direct access. This specifier cannot 
appear in io-specifier-list with theNML=, advance=, 
size=, and eor= specifiers, nor with fmt=* (for list- 
directed I/O). 

sizE=integer-variable 

returns the number of characters that have been read 
by this read statement. This specifier may appear in 
io-specifier-list only if advance= 'no ' also appears in 
the list. 


input-list 

is a comma-separated list of data items for input. The data 
items can include variables and implied-DO lists. 
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format 

is one of the following: 

• An asterisk (*), specifying list-directed I/O. 

• The label of a format statement containing the format 
specification. 

• An integer variablethat has been assigned the label of a 
format statement. 

• An embedded format specification. 

name 

is the name of a namelist group, as previously defined by a 
namelist statement. Using the namelist-directed syntax, the 
read statement takes its input from standard input. To read 
from a connected file, you must usetheNML= specifier with the 
full syntax form, as described below. 

The read statement transfers data from an external or internal file to 
internal storage. An external file can be opened for sequential access or 
direct access. If it is opened for sequential access, the read statement 
can perform the following types of I/O: 

• Formatted 

• U nfor matted 

• List-directed 

• Namelist-directed 

If the file is opened for direct access, the read statement can perform 
formatted or unformatted I/O. 

read statements operating on internal files can perform formatted or 
list-directed I/O. 
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The following examples illustrate different uses of the read statement. 

Formatted sequential I/O 

The following read statement reads 10 formatted records from a file 
opened for sequential access, using an implied-DO list to read the data 
into the array x_array. If the end-of-file record is encountered before 
the array isfilled, execution control passes to the statement at label 99. 

READ (41, ' (F10.2) ', END=99) (x_array(i),i=l,10) 

Nonadvancing I/O 

Thefollowing read statement takes its input from a filethat was opened 
for sequential access and is connected to unit 9. It uses nonadvancing I/O 
to read an integer into the variable key. If the statement encounters the 
end-of-record condition before it can complete execution, control will pass 
to the executable statement at label 100 . After the statement executes, 
the number of characters that have been read will be stored in cnt. 

INTEGER :: key 

READ (UNIT=9, '(14)', ADVANCE='NO', SIZE=cnt, EOR=100) key 

Internal file 

Thefollowing statement inputs a string of characters from the internal 
file cf ile, uses an embedded format specification to perform format 
conversion, and stores the results in the variables i and x: 

READ (cfile, FMT='(I5, F10.5)') i, x 

Namelist-directed I/O 

Each of the four read statements in the next example uses a different 
style of syntax to do exactly the same thing: 

NAMELIST /nl/ a, b, c 

READ (UNIT=5, NML=nl) ! 5 = standard input 
READ (5, nl) 

READ (*, NML=nl) ! * = standard input 
READ nl ! assume standard input 

List-directed I/O 

Thefollowing statement takes its data from standard input, storing the 
converted value in int_var. Theformat conversion is based on the type 

of int_var. 

READ *, int_var 
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If you knew the format, you could substitute for the asterisk one of the 
following: 

• The label of theFORMAT statement with theformat specification, as in 
the following: 

READ 100, int_var 
100 FORMAT(14) 

• An embedded format specification, as in the foil owing: 

READ '(14)', int_var 

Unformatted direct-access I/O 

The following statement takes its input from thefile connected to unit 
31. The rec= specifier indicates that thefile has been opened for direct 
access and that this statement will read the record whose number is 
stored in the variable rec_num. If an I/O error occurs during the 
execution of the statement, an error number will be stored in ios, and 
execution control will branch to the executable statement at label 99 . 

READ (31, REC=rec_num, ERR=99, IOSTAT=ios) a, b 

close, open, and write. 

For more about I/O concepts, including information about files and 
different types of I/O, seeChapter 8, "I/O and file handling,"on page 171. 
This chapter also lists example programs that use I/O. For information 
about I/O formatting, seeChapter 9, "I/O formatting,"on page205. 
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Syntax 


REAL 

Declares entities of type real. 


real [kind-spec] [[, attrib-list] ::] entity-list 
kind-spec 

is the kind type parameter that specifies the range and 
precision of theentities in entity-list, kind-spec takes the form: 

([kind= ] kind-param) 

where kind-param can be a named constant or a 
constant expression that has the integer value of 4, 8, 
or 16. The size of the default type is 4. 

As an extension, kind-spec can take the form: 

* len-param 

where len-param is the integer 4, 8, or 16 (default =4). 


attrib-list 

is a list of one or more of the foil owing attributes, separated by 
commas: 


ALLOCATABLE 

INTRINSIC 

PRIVATE 

DIMENSION 

OPTIONAL 

PUBLIC 

EXTERNAL 

PARAMETER 

SAVE 

INTENT 

POINTER 

TARGET 


If attrib-list is present, it must be foil owed by the double colon. 
For information about individual attributes, seethe 
corresponding statement in this chapter. 
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entity-list 

is a list of entities, separated by commas. Each entity takes the 
form: 


name [( array-spec )] [ = initialization-expr ] 

where name is the name of a variable or function, 
array-spec is a comma-separated list of dimension 
bounds, and initialization-expr is a real constant 
expression. If initialization-expr is present, entity-list 
must be preceded by the double colon. 

The real statement is used to declare the length and properties of data 
that approximate the mathematical real numbers. A kind parameter (if 
present) indicates the representation method. 

The real statement is constrained by the rules for all type declaration 
statements, including the requirement that it precede all executable 
statements. 

Asa portability extension, HP Fortran allows the following syntax for 
specifying the length of an entity: 

name [*len] [( array-spec )] [= initialization-expr] 

If (array-spec) is specified, *len may appear on either side of (array- 
spec) . If name appears with Hen, it overrides the length specified by 
REAL* size. 

The following are valid declarations: 

REAL, TARGET :: x, y 

REAL(KIND=16) :: z 

REAL (4), PARAMETER :: pi=3.14 

! initialize an array, using an array constructor 
REAL, DIMENSIONS) :: rvec=(/ 1. 1,2.2,3.3,4.4 /) 

! use the slash notation (an HP extension) to initialize 

REAL x/2.87/, y/93.34/, z/13.99/ ! note, no double colon 

! the following declarations are equivalent; the second uses the 

! HP length specification extension 

REAL (KIND = 8) x 

REAL*4 x*8 

DOUBLE PRECISION 
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Related concepts 


For related information, see the foil owing: 

• 'Type declaration for intrinsic types” on page24 

• "Implicit typing" on page 28 

• "Array declarations"on page54 

• "Array constructors" on page 71 

• "E xpressi ons" on page 80 

• "KIN D(X)" on page 537 


Chapter 10 


419 




HP Fortran statements 

record (extension) 


Syntax 


Description 


record (extension) 

Declares a record of a previously defined structure. 

record /struct-name/rec-name [, rec-name]... 

[/struct-name/rec-name [, rec-name] ]... 

struct-name 

is the name of a structure declared in a previous structure 
definition, 
rec-name 

is a record name. 

HP Fortran supports the record statement as a compatibility extension. 
New programs should usethederived type, a standard featureof Fortran 
90. For more information about derived types, see "Derived types" on 
page 39 and "type (definition)” on page457. 

The record statement declares a record variable of a structure that has 
been previously defined by a structure statement. A record variable 
can consist of multipledata items, called fields. The structure 
statement is described in "structure (extension)" on page437. 

Referencing record fields 

The syntax for referencing a field in a record depends on whether the 
field itself is another record (a composite reference) or not (a simple 
reference). Composite references have the foil owing syntax: 

rec-name [. substruct-fieldname] ... 

Simple references have the following syntax: 
rec-name [. substruct-fieldname]... simple-fieldname 
rec-name 

is the name of the record in which a composite or simple field is 
being referenced, 
substruct-fi eld-name 

is the name of a nested structure or nested record field name, if 
applicable. 
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simple-field-name 

is the name of a lowest-level field, defined with a type 
declaration statement. As indicated by the syntax, the field 
could be part of a nested structure or nested record. 

Given the following structure definition and record declarations: 

STRUCTURE label 
REAL a, b, c(5) 

STRUCTURE /xyz/ xyz, xyzs(5) 

INTEGER x, y, z(3) 

END STRUCTURE 
END STRUCTURE 

RECORD /abc/ abc, abcs(lOO) 

RECORD /xyz/ xyz 

the following are composite references: 

abc !composite record references 

abes (1) 

xyz 

abes (idx) 

abc.xyz !composite field references 
abc.xyzs (3) 

and thefollowing are simple references: 

abc. a 

abc.c(1) 

xyz . x 

xyz.z (1) 

abc.xyz.x 

abes(idx).xyz.y(l) 

abcs(2),xyzs(3).z(1) 

Composite references can be either to an entire record or toa record field 
that is itself a structure or record. 

Rules for record field 

Arrays of records can be created as follows: 

RECORD /student/ students(1000) 

or 

RECORD /student/ students 
DIMENSION students (1000) 

In either case a 1000-record array called students of structure 
student is declared. 


Chapter 10 


421 




HP Fortran statements 

record (extension) 


Records can be placed in common blocks. The following code places the 
students array (declared above) in the common block frosh, along with 
variables a, b, and c: 

COMMON /frosh/ a, b, c, students 

Simple field references can appear wherever a variable can appear. The 
following assigns values tothefields of record r of structure struct: 

STRUCTURE /struct/ 

INTEGER i 

REAL a 

END STRUCTURE 

RECORD /struct/ r 

r . i = r . i + 1 

r.a = FLOAT(r.i) -2.7 

Composite assignment is allowed for two records or two composite fields 
of the same structure—that is, the record declaration statements for both 
records must have specified the same struct-name. For example, the 
following is legal: 

STRUCTURE /string/ 

BYTE len 

CHARACTER*1 str(254) 

END STRUCTURE 

RECORD /string/ strl, str2 
strl = str2 

The following example is also valid and uses composite assignment to 
assign the value of the record edate of structure date to a field of the 
same structure (when) in the record event: 

STRUCTURE /event/ 

CHARACTER*20 desc 
STRUCTURE /date/ when 
BYTE month, day 
INTEGERS year 
END STRUCTURE 
END STRUCTURE 

RECORD /date/ edate 
RECORD /event/ event 
edate.month = 1 

edate.day = 6edate.year = 62 
event.desc = 'Party for Joanne' 

! composite assignment of record to field 
! of record—both have same structure 
event.when = edate 
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Even though thefollowing records areof identical structures—that is, 
the fields of both structures have the same type, size, and format—the 
code is invalid because the structures have a different name: 

STRUCTURE /intarray/ 

BYTE elem_count 

INTEGER arr(lOO) 

END STRUCTURE 

STRUCTURE /iarray/ 

BYTE elem_count 

INTEGER arr(lOO) 

END STRUCTURE 

RECORD /intarray/ iarrayl 
RECORD /iarray/ iarray2 

! The next assignment won't work. The two 
! records are not of the same structure, 
iarrayl = iarray2 ! Invalid 

When performing I/O on structures and records, composite record and 
field references can appear only in unformatted I/O statements. They are 
not allowed in formatted, list-directed, or namelist-directed I/O 
statements. However, simple field references can appear in all types of 1/ 
O statements. For information about I/O, seeChapter 9, "I/O formatting," 
on page 205. 

A record name or composite field reference can appear as either a formal 
or an actual argument to a subroutine or function. Formal and actual 
arguments must have the same size as well as the same number, type, 
and order of fields. 

Composite record and field arguments to subroutines and functions are 
passed by reference, just like other HP Fortran arguments. 

Adjustable arrays are allowed in record statements that declare formal 
arguments. 

Do not name a field with any of thefollowing: 

• Logical constants, .true, and .false. 

• Logical operators, such as .or., .and., and .not. 

• Relational operators, such as . eq ., .LT.,and .neqv. 

• The name of a defined operator 

STRUCTURE and TYPE 
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Related concepts 


For related information, see the foil owing: 

• "Derived types” on page 39 

• "Allocatablearrays”on page59 

• "Arguments”on page 139 

• "Procedures”on page 123 
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Syntax 

Description 


Examples 


Related statements 
Related concepts 


RETURN 

Returns control from a subprogram. 

return [scalar-integer-expression] 
seal ar-i nteger-expressi on 

is an optional scalar integer expression that is evaluated when 
the return statement is executed. It determines which 
alternate return is used. 

A return statement can appear only in a subprogram. 

An expression may appear in a return statement only if alternate 
returns (one or more asterisks) are specified as dummy arguments in the 
relevant function, subroutine, or entry statement of the 
subprogram. An expression with a value i in the range will return to the 
ith asterisk argument (specified as *label) in the actual argument list. A 
normal return is executed if i is not in the range 1 to n, where n is the 
number of dummy argument alternate returns specified. 

SUBROUTINE calc (y, z) 

! Subroutine calc checks the range of y. If 
! it exceeds the permitted range, it calls 
! an error handler and stops the program 
IF (y > ymax) GO TO 303 
RETURN 

! It returns to the caller of calc if the 
! calculation proceeds to normal completion. 

303 CALL err (3, "OUT OF RANGE") 

STOP 303 
END 

SUBROUTINE and FUNCTION 

For more information about returning from a procedure call, see 
"Returning from a procedure reference" on page 132. 
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REWIND 

Positions file at its initial point. 

The syntax of the rewind statement can take one of the foil owing forms: 

• Short form: 

i nteger-expressi on 

• Long form: 

rewind <i o-specifier-l i st) 
integer-expression 

is the unit connected to a sequential file or device, 
i o-speci fi er-l i st 

is a list of the foil owing comma-separated I/O specifiers: 
[unit=] unit 

specifies the unit connected to an external file opened 
for sequential access, unit must bean integer 
expression that evaluates to a number greater than 0. 
If the optional keyword unit= is omitted, unit must be 
the first item in i o-speci fi er-l ist. 

ERR=stmt-label 

specifies the label of the executable statement to which 
control passes if an error occurs during statement 
execution. 

iosTAT=integer-variable 

returns the I/O status after the statement executes. If 
the statement executes successfully, integer-variableis 
set to zero. If an error occurs, it is set to a positive 
integer that indicates which error occurred. 

The rewind statement repositions the file connected to the specified unit 
at the start of the first record. If thefile is already at its starting point or 
if the unit is not connected to a file, the rewind statement has no effect. 
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Examples 


Related statements 
Related concepts 


The following example of the rewind statement repositions the file 
connected to unit 10 to its initial point: 

REWIND 10 

The next example repositions to its initial point the file connected to unit 
21. If an error occurs during the execution of the statement, control 
passes to the statement at label 99, and theerror codeis returned in 

ios: 

REWIND (21, ERR=99, IOSTAT=ios) 

BACKSPACE, ENDFILE,and OPEN 

For information about I/O concepts, seeChapter 8, "I/O and file 
handling," on page 171. This chapter also lists example programs that 
use I/O. 
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save (statement and attribute) 

Stores variables in static memory. 

A type declaration statement with the save attribute is: 

type , attrib-list :: save-list 

type 

is a valid type specification (integer, real, logical, 
character, type (name), etc.), 
attrib-list 

A comma-separated list of attributes including save and 
optionally those attributes compatible with it, namely: 


ALLOCATABLE 

PRIVATE 

TARGET 

DIMENSION 

PUBLIC 

VOLATILE 

POINTER 

STATIC 



save-list 

is a comma-separated list of names of objects to save. 

The syntax of the save statement is: 

save [[::] save-list] 

The save statement and attribute cause objects in a subroutine or 
function to be stored in static memory, instead of being dynamically 
allocated whenever the procedure is invoked (the default case). A saved 
object retains its value and definition, association, and allocation status 
between invocations of the program unit in which the saved object is 
declared. 

If save-list is omitted, everything in the scoping unit that can be saved is 
saved. No other explicit occurrences of the save attribute or the save 
statement are allowed. 
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Examples 


The names of the foil owing may appear in save-list: 

• Scalar variables 

• Arrays 

• Named common blocks 

• Derived type objects 

• Records 

If the name of a common block appears in save-list, it must be delimited 
by slashes (for example, /my_biock/); all variables in the named 
common block are saved. If a common block is saved in one program unit, 
it must be saved in all program units (except main) where it appears. 

HP Fortran always saves all common blocks. 

The following must not appear in save-list: 

• Formal argument names 

• Procedure names 

• Selected items in a common block 

• Variables declared with theAUTOMATic statement or attribute 

• Function results 

• Automatic data objects (such as automatic arrays, allocatable arrays, 
automatic character strings, and Fortran 90 pointers) 

I nitializing a variable in a data statement or in a type declaration 
statement implies that the variable has the save attribute, unless the 
variable is in a named common block in a block data subprogram. 

A save statement in a main program unit has no effect. 

The save statement in the following examplesaves the variables a, b, 
and c, as well as the variables in the common block dot: 

SUBROUTINE matrix 
SAVE a, b, c, /dot/ 

RETURN 
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Related concepts 
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save (statement and attribute) 


The save statement in the next example saves the values of all of the 
variables in thesubroutine fixit: 

SUBROUTINE fixit 

SAVE 

RETURN 

automatic and STATIC 

For related information, see the foil owing: 

• 'Type declaration for intrinsic types” on page24 

• "Recursive reference” on page 131 

• Information about automatic and static variables, in the HP Fortran 
Programmer's Guide 
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SELECT CASE 


Syntax 

Description 


Examples 
Related statements 
Related concepts 


SELECT CASE 

Begins CASE construct. 

[construct-name :] select case (case-expr) 
construct-name 

is the name given to the case construct. 

case-expr 

is a scalar expression of type integer, character, or logical. 

The select case statement, the first statement of a case construct, 
causes case-expr to be evaluated, resulting in the case index. The case 
construct uses the case index to determine which of its statement blocks 
to execute. 

If construct-name is specified, it must also appear in the end select 
statement. 

For an example of the select case statement, see "case” on page 265. 
case and end (construct) 

For information about the case construct, see "CASE construct" on 
page 105. 
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SEQUENCE 


SEQUENCE 

I mposes storage sequence on components of derived type object. 

SEQUENCE 

The sequence statement can appear once within any derived type 
definition; its presence specifies that a storage sequence on the 
components that is the same as their definition order. A derived type that 
includes the sequence statement in its definition is known as a 
sequence derived type. Sequence derived types are used: 

• To allow objects of sequence derived type to be storage associated 
with the common and equivalence statements. 

• Toallow actual and dummy argumentstohavethesametypewithout 
use or host association. The corresponding actual and dummy 
arguments of derived types are of the same derived type if the 
derived-type objects refer to the same type definition. Alternatively, 
they are of the same type if all of the foil owing are true: 

- They refer to different type definitions with the same name. 

- They have the sequence statement in their definitions. 

- The components have the same names and types and are i n the 
same order. 

- None of the components is of a private type or of a type that has 
private access. 

The foil owing restrictions apply to the use of the sequence statement: 

• No more than one sequence statement may appear in the definition 
of a derived type. 

• If a derived type definition includes the sequence statement, each 
component that is of derived type must also include the sequence 
statement. 
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SEQUENCE 


Examples 


Related statements 
Related concepts 


TYPE weather 

! weather is a sequence derived type with two 
! character components and two integer components 
SEQUENCE 

CHARACTER(LEN=32) place 
INTEGER high_temp, low_temp 
CHARACTER(LEN=16) conditions 
END TYPE weather 

TYPE, COMMON, and EQUIVALENCE 

For information about sequence derived types, see "Sequence derived 
type" on page 41. 
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static (statement, attribute, extension) 


static (statement, attribute, extension) 

Gives variables and arrays static storage. 

The syntax of a type declaration statement with the static attribute is: 

type, attribute-list :: entity-list 

type 

is a valid type specification (integer, real, logical, 
character, type ( name), etc.), as described in Chapter 3, 
"Data types and data objects," on page 21. 
attribute-list 

is a comma-separated list of attributes including static and 
optionally those attributes compatible with it, namely: 


ALLOCATABLE 

PRIVATE 

VOLATILE 

DIMENSION 

SAVE 


POINTER 

TARGET 



entity-list 

is a comma-separated list of variables and arrays. 

The syntax of the static statement is: 

static [::] entity-1 ist 

The static statement and attribute is an HP Fortran extension. 
Variables possessing the static attribute retain their storage location 
for the duration of the program. A static variable declared within a 
procedure will therefore retain its value between calls of the procedure. 

The static statement and attribute has the same functionality as the 
save statement and attribute; it is provided for compatibility with other 
vendors’ Fortran 90. 
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static (statement, attribute, extension) 


Examples SUBROUTINE work_out(first_call) 

LOGICAL first_call 
INTEGER, STATIC :: ncalls 

IF (first_call) ncalls = 0 

ncalls = ncalls + 1 ! record how often work_out is called 

END SUBROUTINE work_out 

Related statements automatic and save 

Related concepts For related information, see the foil owing: 

• 'Type declaration for intrinsic types" on page 24 

• Information about automatic and static variables, in the HP Fortran 
Programmer's Guide 
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Description 


Examples 
Related statements 
Related concepts 
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STOP 


STOP 

Terminates program execution. 

stop [stop-code] 
stop-code 

is a character constant, a named constant, or a list of up to 5 
digits. 

The stop statement terminates program execution and optionally prints 
a message to standard error or standard list. 

stop also sends a message to standard error, dependent on whether 
digits, characters, or nothing was specified with the stop statement: 

• I f digits are specified, the message "stop digits" is written to 
standard error. 

• If a character expression is specified, the message "stop character- 
expression" is written. 

• If nothing appears after stop, nothing is written. 

IF (b .LT. c) STOP 'BAD VALUE!' 

PAUSE 

For information about flow control statements, see "Flow control 
statements" on page 112. 
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structure (extension) 


Syntax 


Description 


structure (extension) 

Defines a named structure. 

structure /struct-name/ 
field-def 

END STRUCTURE 

struct-name 

is the structure's name, delimited by slashes, struct-name can 
be used I ater to decl are a record. 

field-def 

is a field definition. 

HP Fortran supports the structure statement as a compatibility 
extension. New programs should usethederived type, a standard feature 
of Fortran 90; derived types provide the same functionality as named 
structures. For more information about derived types, see "Derived 
types” on page 39 and "type (declaration)"on page454. 

The structure statement defines the type, size, and layout of a 
structure's fields, and assigns a name to the structure. Once a structure 
is defined, you can declare records of that structure using the record 
statement and can manipulate the record's fields. 

A structure definition pertains only to the program unit in which it is 
defined. For example, you cannot define a structure in the main program 
unit and then declare a record of that structure in a subprogram unit. 

I nstead, the structure must be explicitly defined again in the 
subprogram unit. 

field-d^can beany of the foil owing: 

• A type declaration statement 

• A nested structure definition 

• A nested record declaration 

• A union definition 

Each type of field definition is described in the remaining sections. 
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Field definition as type declaration 

At the simplest level, fi el d-d ef can be a type declaration statement. As 
such, field-def has the same syntax as a standard Fortran 90 type 
declaration statement, except that the only attribute that can be 
specified is the Dl M ENSI ON attribute. A variable defined with a type 
declaration statement is called a field. 

The following code uses simple type declaration statements to define a 
structure named date with three fields: month and day of type byte, 
and year of type INTEGER (KIND=2 ): 

STRUCTURE /date/ 

BYTE :: month, day 
INTEGER(KIND=2) :: year 
END STRUCTURE 

A type declaration statement in a structure definition can optionally 
define initial values for the fields. For example: 

STRUCTURE /xyz/ 

REAL :: x = 1.0, y = 2.0, z = 3.0 
END STRUCTURE 

Thereafter, any record declared of structure xyz will have its x, y, and z 
fields initially set to 1.0, 2.0, and 3.0 respectively. Consider the 
following: 

RECORD /xyz/ xyz 

PRINT *, xyz.x, xyz.y, xyz.z 

Even though no values have been assigned to the fields of xyz with an 
assignment statement, the above code will display: 

1.0 2.0 3.0 

I mplicit typing is not allowed in a structure definition. For example, the 
following code would cause a compile error: 

STRUCTURE /dimensions/ 
x, y, z ! illegal 
END STRUCTURE 

A correct way to code this would be: 

STRUCTURE /dimensions/ 

REAL(KIND=8) :: x, y, z ! legal 

END STRUCTURE 
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A field type declaration statement can also define an array, as in the 
following: 

STRUCTURE /foo_bar/ 

INTEGER foo(10) 

END STRUCTURE 

or, using Fortran 90 syntax: 

STRUCTURE /foo_bar/ 

REAL, DIMENSION(30, 50) :: bar 

END STRUCTURE 

The array's dimensions must in any case appear in the type statement. 
The dimension statement (but not the dimension attribute) is illegal 
in a structure definition. The foil owing code defines the structure, 
string, which uses a type declaration statement to define an array field 
str of type character (len=1), containing 254 elements: 

STRUCTURE /string/ 

CHARACTER(LEN=1) 

INTEGER :: length 
END STRUCTURE 

As mentioned, the dimension statement cannot be used in a structure 
definition. For example, the following code would cause a compile-time 
error: 

STRUCTURE /real_array/ 

REAL :: rarray 

DIMENSION arr(100) ! illegal example 

END STRUCTURE 

A correct way to code this would be: 

STRUCTURE /real_array/ 

REAL :: rarray(100) 

END STRUCTURE 

or 

STRUCTURE /real_array/ 

REAL, DIMENSION(100) :: arr 

END STRUCTURE 

Assumed-size and adjustable arrays are also illegal in structure 
definitions. For example, thefollowing is illegal: 

STRUCTURE /assumed_size/ ! illegal example 
CHARACTER*(*) :: carray 

END STRUCTURE 


:: str (254)! Contains string 
! string's length 
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The following is also illegal: 

STRUCTURE /adj_array/ ! illegal example 
INTEGER :: size 
REAL :: iarray(size) 

END STRUCTURE 

For alignment purposes, HP Fortran provides the %f ill field name. It 
enables the programmer to pad a record to ensure proper alignment. The 
padding does not have a name and is therefore not accessible. For 
example, the following structure, sixbytes, creates a 6-byte structure, 
of wh i ch 4 bytes a re i naccessi bl e f i 11 er bytes: 

STRUCTURE /sixbytes/ 

INTEGER(KIND=2) :: twobytes 
CHARACTER(LEN=4) :: %FILL 

END STRUCTURE 

%f i ll can be of any type and may appear more than once in a structure. 

%fill should not be needed in normal usage. The compiler 
automatically adds padding to ensure proper alignment. 

Nested structures 

A field-def can itself be a structure definition, known as a nested 
structure. The syntax of a nested structure definition is: 

structure /struct-name/struct-fi el d-l i st 
field-def 

END STRUCTURE 

struct-name 

is the structure's name (delimited by slashes), which can be 
used later to declare a record, 
struct-fi eld-list 

is a comma-separated list of one or more names of nested 
structure field names. 

field-def 

can be one of the foil owing regular field definitions (defined in 
the same way as an unnested structure field): 

• A type declaration statement 

• Another nested structure 

• A nested record 

• A union definition 
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NOTE 


Notethat a structure definition allows multiple levels of nesting. 

A nested structure definition is the same as an unnested structure 
definition, with two exceptions: 

• /struct-nam^ is optional in a nested structure. 

• A nested structure definition must indudea list of oneor more 
structure field names (struct-field-list). 

If /struct-nam^ is present in a nested structure definition, the structure 
struct-namecan also be used in subsequent record declarations. For 
example, the following code defines a structure named person, which 
contains a nested structure named name. The structure's field name is 
nm and contains three character*io fields: last, first, and mid. 

STRUCTURE /person/ 

INTEGER :: person_id 

! Define the nested structure 'name' with the field name 'nm'. 
STRUCTURE /name/ nm 

CHARACTER(LEN=10) :: last, first, mid 

END STRUCTURE 
END STRUCTURE 

Given this definition, the foil owing code defines the record p of structure 
person and the record n of structure name: 

RECORD /person/p 
RECORD /name/n 

If /struct-nam^ is not present, then the structure can be used only in this 
declaration. For example, we could redefine theperson structure so that 
the nested structure no longer has a name: 

STRUCTURE /person/ 

INTEGER :: person_id 
STRUCTURE nm 

CHARACTER(LEN=10) :: last, first, mid 

END STRUCTURE 
END STRUCTURE 

There is no way to declare a separate record of the nested structure 
because it has no name. Note, however, that the nested structure still has 
a field name, nm. The field name is required. 

To declare an array of nested structures, simply specify a dimension 
declarator with the structure’s field name. For example, thefollowing 
structure definition containsa nested, 3-element array of structures with 
field name phones of structure phone: 
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STRUCTURE /person/ 

INTEGER :: person_id 

! Define the nested structure 'name' with the field name 'nm'. 
STRUCTURE /name/ nm 

CHARACTER(LEN=10) :: last, first, mid 

END STRUCTURE 

! Nested array of structures. 

STRUCTURE /phone/ phones(3) 

INTEGER(KIND=2) :: area_code 
INTEGER :: number 
END STRUCTURE 
END STRUCTURE 

Nested records 

A field-def can be a record declaration, known as a nested record. See 
"record (extension)"on page420 for information about record 
declarations.) A nested record declaration must use a structure that has 
already been defined. The foil owing code first defines the structure date. 
It then declares the structure event, which contains the nested record 
when of structure date: 

STRUCTURE /date/ 

BYTE :: month, day 
INTEGER :: year 
END STRUCTURE 
STRUCTURE /event/ 

CHARACTER :: what, where 
RECORD /date/ when 
END STRUCTURE 

A structure definition can also declare an array of nested records. For 
example, the following code defines the structure calendar, which 
contains a 100-element array of records of structure event: 

STRUCTURE /calendar/ 

! number of events 

INTEGER(KIND=2) :: event_count 

RECORD /event/ events (100) ! array of event records 

END STRUCTURE 
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Unions 

A field-def can be a union—a form of nested structure in which two or 
more map blocks share memory space. The union and map statements 
together define a union. The syntax of a union definition is: 

UNION 

map-block 

map-block 

END UNION 

where map-block is defined by a map statement and oneor more field 
definitions. All map blocks within the enclosing UNI ON statement share 
the same memory space in a record. The syntax for defining a map block 
is: 

MAP 

field-def 

END MAP 

where field-def can be one of the fol lowi ng: 

• A type declaration statement 

• Another nested structure 

• A nested record 

• A union definition 

Notethat a structure definition allows multiple levels of nesting. 

For programmers who are familiar with C or Pascal, H P Fortran unions 
are similar to unions in C and variant records in Pascal. FI P Fortran 
unions differ from C unions in that they must be defined inside a 
structure definition. 

The structure below contains a union with two map blocks. Thefirst 
contains the integer field int; the second contains the real field float. 

STRUCTURE /var/ 

INTEGER :: type ! 1=INTEGER, 2=REAL 
UNION 
MAP 

INTEGER :: int 
END MAP 
MAP 

REAL :: float 
END MAP 
END UNION 
END STRUCTURE 
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To declare a record of this structure named v, use the foil owing record 
statement: 

RECORD /var/ v 

The decl aration of the record v reserves 8 bytes of storage: 4 bytes for the 
type field and 4 bytes to be shared by int and float. If you usetheint 
field to access the 4 bytes, they will be interpreted as an integer; if you 
use the float field, they will be interpreted as a real. 

It isthe programmer's responsibility to ensure that appropriate values 
are assigned to each field in a union. For instance, given the previous 
declaration of v, thefollowing assignments makesense: 

v.type =1 ! set the type to integer 

! access the storage shared by 'int' and 'float' as an integer 
v.int = 3 

I n contrast, thefollowing code would yield unexpected results, although 
it would compile without errors: 

v.type = 1 ! set the type to integer 

! the next statement contradicts the previous statement 
v.float = 3.14 

Once a value is assigned to a map block, all other map blocks become 
undefined. The reason is that all map blocks share memory space within 
a union; therefore, the values of one map block may become altered if you 
assign a valueto a field in another map block. Consider thefollowing 
definition of a structure cal led struct and the decl aration of a record 
called rec: 

STRUCTURE /struct/ 

UNION 

MAP 

CHARACTER*8 :: s 
END MAP 
MAP 

CHARACTER*! :: c(8) 

END MAP 
END UNION 
END STRUCTURE 

RECORD /struct/ rec 

If we made the foil owing assignment to the s field: 

rec.s = 'ABCDEFGH' 

and then executed the next two PRI NT statements: 

PRINT *, rec.s 
PRINT *, rec.c 
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the output would be: 

ABCDEFGH 

ABCDEFGH 

Now, if we set values in thee field and display both fields again 

rec.c (1) = '1' 
rec.c (8) = '8' 

PRINT *, rec.s 
PRINT *, rec.c 

the output would be: 

1BCDEFG8 

1BCDEFG8 

Note how the s field has changed, even though it was not directly 
assigned any new values. This is a result of the s and c field sharing the 
same storage space in the union. Although this is valid coding—that is, it 
will not cause a compiler or runtime error—it may cause unexpected 
results. 

However, you can also use shared memory mapping to your benefit. The 
fact that map blocks share space within a union makes unions useful for 
equivalencing data within a record. For example, the following structure 
could be used to mask off individual bytes in a 4-byte word: 

STRUCTURE /wordmask/ 

UNION 

MAP 

INTEGER(KIND=4) :: word 
END MAP 
MAP 

BYTE :: byteO, bytel, byte2, byte3 
END MAP 
END UNION 

END STRUCTURE RECORD /wordmask/ maskrec 

If we assign a value to the word field of maskrec, we can then get the 
individual values of all four bytes in maskrec by looking at thefields 
byteO, bytel, byte2, and byte3. To see how the integer variable word 
maps onto the byte variables byteO, bytel, byte2, and byte3, use the 
fol lowi ng statements: 

maskrec.word = 32767 

WRITE(*, fmt=100) 'word = ', maskrec.word 
WRITE(*, 200) 'byte 0 = ', maskrec.byteO 

WRITE(*, 200) 'byte 1 = ', maskrec.bytel 

WRITE(*, 200) 'byte 2 = ', maskrec.byte2 

WRITE(*, 200) "byte 3 = ', maskrec.byte3 

100 FORMAT(A, Z8.8) 

200 FORMAT(A, Z2.2) 
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This code displays thefollowing output: 

word = 00007FFF 
byte 0 = 00 
byte 1 = 00 
byte 2 = 7F 
byte 3 = FF 

Such code, depending as it does on a specific word size, is inherently 
nonportable. 

Related statements record and type 

Related concepts Derived types are described in "Derived types" on page 39. 
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Syntax 


Description 


SUBROUTINE 

Begins the definition of a subroutine subprogram. 

[recursive] subroutine subr-name [ ([dummy-arg-list]) ] 

subr-name 

is the name of a subroutine. 

dummy-arg-list 

is a comma-separated list of zeroor moreof dummy-arg-nameor 
the asterisk character (*). 

As indicated by the syntax, the parentheses surrounding the 
dummy arguments may be omitted if there are no dummy 
arguments. 

The subroutine statement is the first statement of a subroutine 

subprogram. 

The following rules and restrictions apply to subroutines: 

• A subroutine is either an external, module, or internal subprogram. 

• If a subroutinecalls itself directly or indirectly, the word recursive 
must appear in the subroutine statement. If the keyword 
recursive is specified, thesubroutineinterface is explicit within the 
subprogram. 

• The keyword subroutine must appear on the end statement if the 
subroutine is a module or internal procedure. 

• An asterisk in a subroutine dummy argument list designates an 
alternate return. 

• The interface of an internal subroutine is explicit in its host. The 
interface of a module subroutine is explicit within the module, and if 
it is public, it is explicit in all program units using the module. The 
interface of an external subroutine is implicit, but may be made 
explicit by the use of an interface block. 
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Related concepts 
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SUBROUTINE 


Consider the following subroutines: 

! A subroutine definition with two arguments. 

SUBROUTINE exchange (x, y) 
temp =x; x=y; y= temp 
END SUBROUTINE exchange 

SUBROUTINE altitude (*, long, lat) 

! asterisk (*) indicates alternate return 
IMPLICIT NONE 

INTEGER, OPTIONAL :: long, lat 
RETURN 1 

END SUBROUTINE altitude 

The preceding subroutines may be referenced with the call statement, 
as in the foil owing program: 

PROGRAM reject 

CALL exchange (a,t) ! A subroutine reference 

! subroutine reference, including an alternate return label, 

! missing optional argument, and an argument keyword 
CALL altitude (*90, lat = 49) 

END PROGRAM reject 

Following are some other examples of subroutine statements: 

SUBROUTINE pressure_surface ! No arguments 
SUBROUTINE taffy () ! Also no arguments 

RECURSIVE SUBROUTINE fact (n, x) 

CALL, END, ENTRY, FUNCTION, and RETURN 

For related information, see the foil owing: 

• "External procedures”on page 128 

• "Arguments”on page 139 
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Syntax 


target (statement and attribute) 

Allows variables and arrays to be pointer targets. 

The syntax of a type declaration statement with the target attribute is: 

type, attrib-list : : entity-list 

type 

is a valid type specification (integer, real, logical, 
character, type (name), etc.), 
attrib-list 

is a comma-separated list of attributes including target and 
optionally those attributes compatible with it, namely: 


ALLOCATABLE 

OPTIONAL 

SAVE 

DIMENSION 

PRIVATE 


INTENT 

PUBLIC 



entity-list 

is a comma-separated list of entities. Each entity is of the form: 
array-name [ (deferred-shape-spec-list) ] 

If ( deferred-shape-spec-list) is omitted, it must be specified in 
another declaration statement. 

array-name 

is the name of an array being given the attribute 

ALLOCATABLE. 

def erred-shape-spec-1 ist 

is a comma-separated list of colons, each colon 
representi ng one di mension. Thus the rank of the array 
is equal to the number of colons specified. 
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target (statement and attribute) 

The syntax of the target statement is: 

target [:: ] object-name [ (array-spec) ] 

[, object-name [(array-spec)]]... 

array-spec 

explicit-shape-spec is [lower-bound :] upper- 

bound 

assumed-shape-spec is [lower-bound]: 

deferred-shape-spec is : 

assumed-size-spec is [explicit-shape-spec-list,] 

[lower-bound :] * 

That is, an assumed-size-spec is an explicit-shape-spec-list with 
the final upper bound given as *. 

Description The target attribute or statement specifies that name is a target that 

may be pointed at by a pointer. A target may be either a scalar or an 
array. 

The target attribute allows the compiler to generate efficient code 
because only those objects specified with the target or pointer 
attribute can be dynamically aliased. 

If thetarget in a pointer assignment is a variable, then one of the 
following must be true: 

• 11 must have the target attri bute. 

• It must be the component of a derived-type, the element of an array 
variable, or the substring of a character variable that has the target 
attribute. 

• 11 must have the pointer attri bute. 

If thetarget of a pointer assignment is an array section, the array must 
have either the target or the pointer attri bute. 

Examples ! p is a pointer array 

INTEGER, POINTER, DIMENSION(:,:) :: p 

! declare t as an array with the TARGET attribute 
INTEGER, TARGET :: t(10, 20, 30) 

! make p point to a rank-2 section of t 
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p => t (10, 1 :10,2 :5) 

REAL, POINTER :: nootka ( :), talk ( :) 
REAL, ALLOCATABLE, TARGET :: x(:) 
ALLOCATE (x (1:100), STAT = is) 
nootka => x (51:100) 

! Pointer assignment statements 
talk => x (1:50) 


REAL r, pi, p2 


TARGET r 
POINTER pi, p2 
r = 4.7 


! make both pi and p2 aliases 
pi => r 
p2 => pi 


of 


r 


ALLOCATE (pi) 
pi = 9.4 

Related statements pointer, allocate, deallocate, and nullify 

Related concepts For related information, see the foil owing: 

• "Poi nters” on page 47 

• "P oi nter assi gn ment" on page 97 

• The description of the associated intrinsic in Chapter 11, "I ntrinsic 
procedures,” on page 475. 
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Syntax 


Description 


Related statements 


HP Fortran statements 

task common (extension) 


task common (extension) 

Declares a common block to be local to a thread during parallel 
execution. 

A program that uses the task common statement should be compiled with 
the +Oparallel or +parallel option; otherwise, the compiler treats the 
task common statement as a common statement. 

TASK COMMON /cbn/nlist[,/cbn/nlist...] 

cbn 

is a symbolic name for a common block that is declared in a 
TASK COMMON statement. Unnamed common blocks are not 
allowed in a TASK COMMON statement. 

nlist 

is a list of variable names, array names, and array declarators. 
These variables cannot appear in a DATA statement, but 
otherwise can be used like other variables in common storage. 

The TASK COMMON statement is an extension to the Fortran 90 standard and 
is provided for compatibility with programs that use the Cray TASK 
COMMON feature. TASK COMMON blocks can only be declared in functions and 
subroutines. 

A program should already be running multiple threads before calling a 
subroutine that contains a TASK COMMON block. 

When used in a program executing multiple threads, the TASK COMMON 
statement declares all variables in a common block as local to a thread (also 
called a task). If multiple threads execute code that uses the same TASK 
COMMON block, each thread has a private copy of the block. 

All occurrences of the TASK COMMON block must be declared with the TASK 
COMMON statement; a common block cannot be declared in both a COMMON 
statement and a TASK COMMON statement. 

COMMON 


452 


Chapter 10 



HP Fortran statements 

task common (extension) 


Related concepts 


For related information, see the foil owing: 

• 'Type declaration for intrinsic types” on page24 

• "Implicit typing" on page 28 

• "Array declarations"on page54 

• "Array constructors" on page 71 

• "E xpressi ons" on page 80 
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Syntax 
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type (declaration) 


type (declaration) 

Declares a variable of derived type. 

type (type-name) [[, attrib-list] ::] entity-list 
type-name 

is the name of a previously defined derived type, 
attrib-list 

is a comma-separated list of oneor more of the foil owing 
attributes: 


ALLOCATABLE 

INTRINSIC 

PRIVATE 

DIMENSION 

OPTIONAL 

PUBLIC 

EXTERNAL 

PARAMETER 

SAVE 

INTENT 

POINTER 

TARGET 


If attrib-list is present, it must be followed by the double colon. 
For information about individual attributes, seethe 
corresponding statement in this chapter, 
entity-list 

is a list of entities, separated by commas. Each entity takes the 
form: 

name [(array-spec)] [= initi al ization-expr] 
where: 
name 

is the name of a variable or function 
array-spec 

is a comma-separated list of dimension bounds 
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initialization-expr 

is a structure constructor 

initialization-expr 

is present 

entity-list 

must be preceded by the double colon. 

Description The type declaration statement specifies the type and attributes of 

derived-type objects. A derived-type object may be an array, which may 
be deferred shape (pointer or allocatable), assumed shape (dummy 
argument), or assumed size (dummy argument). 

Assignment is intrinsically defined for each derived type but may be 
redefined by the user. Operators appropriate to a derived type may be 
defined by procedures with the appropriate interfaces. 

When a derived-type object is used as a procedure argument, the types of 
the associated actual and dummy arguments must bethesame. For 
sequence derived types different physical type definitions may be used 
for the actual and dummy arguments, as long as both type definitions 
specify identical type names, components, and component order. For 
nonsequenced types the same physical type definition must be used, 
typically accessed via host or use association, for both the actual and 
dummy arguments. 


Examples 


TYPE (Weather) July(num_ws, 31) 

! A two-dimensional Weather array for July 
July(:,:) % Low_temp = -40 
! Initialize all low temps in July 
TYPE Polar 

! Polar is a derived type with two real components that cannot be 
! directly accessed in Polar objects outside the module 
PRIVATE 

REAL rho, theta 
END TYPE Polar 

! Point is a derived type with three components, one of which is 
! itself of derived type 


! Weather is a simple derived type with two 
! character components and two integer components. 
TYPE Weather 

CHARACTER(LEN=32) Place 
INTEGER High_temp, Low_temp 
CHARACTER(LEN=16) Conditions 
END TYPE Weather 
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TYPE Point 
REAL x, y 
TYPE (Polar) p 
END TYPE Point 

TYPE (Polar) r, q(50 0) 

! Two variables of type Polar 
TYPE (Point) a, b, t (100,100) 

! Three variables of type Point 
b = Point(0.,0.,Polar(0.,0.)) 

! Use of nested structure constructors. 

Related statements interface, private, public, sequence, and type (definition) 
Related concepts For information about derived types, see "Derived types” on page 39. 
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Syntax 


Description 


Examples 


type (definition) 

The first statement of a derived type definition. 

type [[, access-spec ] ::] derived-type-name 
access-spec 

is the keyword public or private. 
derived-type-name 

is a legal Fortran 90 name. 

The type statement introduces thedefinition of a derived type. A 
derived type name may be any legal Fortran 90 name, as long as it is not 
the same as an intrinsictype name or another local name (except 
component names and actual argument keyword names) in that scoping 
unit. 

A derived type may contain an access specification (public or private 
attribute) or an internal private statement only if it is in a module. 

! This is a simple example of a derived type 
! with two components, high and low. 

TYPE temp_range 

INTEGER high, low 
END TYPE temp_range 

! This type uses the previous definition for one of its 
! components 
TYPE temp_record 

CHARACTER(LEN=40) city 

TYPE (temp_range) extremes(1950:2050) 

END TYPE temp_record 

! This type has a pointer component to provide links to other 
! objects of the same type, thus providing linked lists. 

TYPE linked_list 
REAL value 

TYPE(linked_list),POINTER :: next 
END TYPE linked_list 

! This is a public type whose components are private; defined 
! operations provide all functionality. 

TYPE, PUBLIC :: set; PRIVATE 
INTEGER cardinality 
INTEGER element ( max_set_size ) 

END TYPE set 

! Declare scalar and array of type set. 

TYPE (set) :: baker, fox (1:size(hh)) 
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Related statements 
Related concepts 


interface, private, public, sequence, and type (declaration) 
For information about derived types, see "Derived types" on page 39. 
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type (I/O) (extension) 

Writes to standard output. 

The type statement is a synonym for the print statement and has the 
same functionality and syntax. It is provided as an HP extension for 
compatibility with earlier versions of Fortran. For more information, see 
"print” on page 402. 


Chapter 10 


459 



Syntax 


Description 


HP Fortran statements 

union (extension) 


union (extension) 

Defines a union within a structure. 

UNION 

map-block 

map-block 

END UNION 

map-block 

is one or more of the following: 

• A type declaration statement 

• Another nested structure 

• A nested record 

• A union definition 

The union statement is an HP Fortran extension that is used with the 
map statement to define a union within a structure. For detailed 
information about the map and union statements, see "structure 
(extension)" on page 437. 
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Syntax 


Description 


USE 

Provides controlled access to module entities. 

A use statement has one of the foil owing forms: 

• use module-name [, rename-list ] 

• use module-name, only : access-list 
rename-list 

is a comma-separated list of rename 

rename 

is local-name => module-entity-name 
access-1 i st 

is a comma-separated list of the foil owing: 

• [local-name =>] module-entity-name 

• operator (operator) 

• ASSIGNMENT (=) 

The use statement provides access to a module's public specifications 
and definitions. These include declared variables, named constants, 
derived-type definitions, procedure interfaces, procedures, generic 
identifiers, and namelist groups. The method of access is called use 
association. Such access may be limited by an only clause on the use 
statement, or the accessed entities may be renamed. 

All use statements must appear after the program unit header 
statement and before any other statements. More than one use 
statement may be present, including more than one referring to the same 
module. 

Modules may contain use statements referring toother modules; 
however, references must not directly or indirectly be recursive. 

The local-name in a renaming operation is not declared: it assumes the 
attributes of the module entity being renamed. 
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The first two forms of the use statement make available by use 
association all publicly accessible entities in the module, except that the 
use statement may rename some module entities. Thethird form makes 
available only those entities specified in access-list, with possible 
renaming of some module entities. 

Entities made accessible by a use statement include public entities from 
other modules referenced by use statements within the referenced 
module. 

The same name or specifier may be made accessible by means of two or 
more use statements. Such an entity must not be referenced in the 
scoping unit containing the use statements, except where specific 
procedures can bedistinguished by the overload rules. A rename or only 
clause may be used to restrict access to one name or to rename one entity 
sothat both are accessible. 


MODULE rat_arith 
TYPE rat 

INTEGER n, d 
END TYPE 

! Make all entities public except zero. 

TYPE (rat), PRIVATE, PARAMETER :: zero = rat(0,1) 

TYPE (rat), PUBLIC, PARAMETER :: one = rat (1,1) 

TYPE (rat) rl, r2 
NAMELIST /nml_rat/ rl, r2 
INTERFACE OPERATOR( + ) 

MODULE PROCEDURE rat_plus_rat, int_plus_rat 
END INTERFACE 

CONTAINS 

FUNCTION rat_plus_rat(1, r) 

END FUNCTION 
END MODULE 

PROGRAM Mine 

! From the module rat_arith, access only the entities rat, 

! one, rl, r2, nml_rat but use the name one_rat for the 
! rational value one. 

USE rat_arith, ONLY: rat, one_rat => one, rl, r2, nml_rat 

! The OPERATOR + for rationals and the procedures rat_plus_rat 
! and int_plus_rat are not available because of the ONLY 
clause 

READ *, r2; rl = one_rat 
WRITE( *, NML = nml_rat) 

END PROGRAM 
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Related statements module 

Related concepts For information about modules, see "Modules”on page 161. 
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Description 

Examples 
Related statements 
Related concepts 
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virtual (extension) 


virtual (extension) 

Declares an array. 

virtual array-declarator-list 
array-declarator-list 

is a comma-separated list of array declarators. 

The virtual statement is an HP extension in HP Fortran for 
compatibility with earlier versions of Fortran. It is an alternative to the 
dimension statement, virtual cannot be used as an attribute in type 
declaration statements. 

VIRTUAL A(10), B (1:5,2:6) 

DIMENSION 

Arrays are discussed in Chapter 4, "Arrays,” on page 51. 
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Syntax 


Description 


Examples 


volatile (extension) 

Provides for data sharing between asynchronous processes. 

volatile [::] object-name-1 ist 
object-name-list 

is a comma-separated list of the foil owing: 

• variable-name 

• array-name 

• common-block-name 

It is only necessary to declare an object as volatile when its value may 
be altered by an independent asynchronous process or event (for 
example, a signal handler). All optimization processes are inhibited for 
objects with the volatile attribute. Data objects declared as volatile 
are addressable by otherwise independent processes. 

If an array or common block is declared as volatile, then all of the 
array elements or common block variables become volatile. Similarly, 
use of equivalence with a volatile object implies that any associated 
object is also volatile. 

INTEGER alarm, trem 
EXTERNAL wakeup 
COMMON/FLAGS/ialarm 
VOLATILE ialarm 

trem = ALARM(60,wakeup) ! Set an alarm to execute in 60 seconds 

wakeup 

IALARM = 0 

DO 

IF (ialarm.NE.0) EXIT 
END DO 

SUBROUTINE wakeup 
COMMON/flags/ialarm 
VOLATILE ialarm 
ialarm=l 
END 
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where (statement and construct) 


where (statement and construct) 

Performs masked array assignments. 

where (array-1 ogical-expr) [array-assignment-statement] 

If the optional array-assignment clause is present, the where statement 
is syntactically complete and does not require the end where statement. 

I fthe array-assignment clause is not present, the where statement is the 
first statement of a where construct. The syntax of the where construct 
is: 

where (array-1 ogi cal-expr) 
array-assi gnment-statement 

[ ELSEWHERE 

array-assi gnment-statement 
... ] 

END WHERE 

array-1 ogi cal-expr 

is a logical array expression, 
a rray-assi gn ment-statement 

is an array assignment statement. 

Certain array elements can deselected by a mask and assigned in array- 
assignment statements using the where statement or where construct. 
array-1 ogi cal-expr establishes the mask. 

For any elemental operation inthe array assignments, only the elements 
selected by the mask participate in the computation. The elemental 
operations include the usual intrinsic operations and theelemental 
intrinsic functions such as abs. M asked array assignments are useful 
when certain elemental operations involving arrays need to be avoided 
because of program exceptions. 

The following rules and restrictions apply: 

• The shape of the result of array-1 ogi cal-expr and the arrays in each 
array-assignment-statement must be the same; they may be of size 
zero. 

• array-assignment-statement must bean intrinsic array assignment 
statement; no defined assignment statements are permitted. 
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Examples 


• Each elemental operation in array-assignment-statement is masked 
by the array logical expression. 

• The elements of the arrays that are used in the where part (the 
assignments after the where keyword) are those corresponding to the 
true elements of the array logical expression. The elements of the 
arrays that are used in the elsewhere part (the assignments after 
the elsewhere keyword and before the end where keywords) are 
those corresponding to the false elements of the array logical 
expression. 

• Each array-assignment-statement executes in the order in which it 
appears in both the where and elsewhere part of the where 
construct. 

• I n a where construct, only the where statement may be a branch 
target statement. 

REAL, DIMENSION(150) :: a, recip_a 

REAL(DOUBLE), DIMENSION(10,20,30) :: b, sqrt_b 

! Assign 1.0/a to recip_a only where a is nonzero 

WHERE( a /= 0.0 ) recip_a = 1.0 / a 

WHERE( b .GE. 0.0 ) 

! Assign to sqrt_b only where b is nonnegative 
sqrt_b = SQRT(b) 

ELSEWHERE ! Set sqrt_b to 0.0 where b is -ve. 
sqrt_b = 0.0 

END WHERE 

INTEGER, DIMENSION(no_of_tests, student):: score 

CHARACTER, DIMENSION(no_of_tests, student) :: letter_grade 

! Assign letter grades for numeric scores 


WHERE( 

score 

>= 92 

) 

letter_ 

.grade 

= 'A' 


WHERE( 

score 

>= 82 

.AND . 

score <= 

91 ) 

letter_grade = 

'B 

WHERE( 

score 

>= 72 

.AND . 

score <= 

81 ) 

letter_grade = 

'C 

WHERE( 

score 

>= 62 

.AND. 

score <= 

71 ) 

letter_grade = 

'D 

WHERE( 

score 

>= 0 

.AND . 

score <= 

61 ) 

letter_grade = 

'E 


I n the next example, the arrays values, delta, and count must all be 
of the same shape: 

WHERE (ABS(values) .LT. 10.0) 
values = ABS(values) + delta 
count = count + 1 
ELSEWHERE 

values = 0 
count = count + 1 
ENDWHERE 
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The first two assignment statements are processed for elements 
corresponding to true elements of the mask. The second two assignment 
statements are processed for elements corresponding to false elements of 
the mask. Unlike the else clause of an if statement, the assignment 
statements in both the where and elsewhere parts are processed. 

Note the different behavior of the calls toABS. I n evaluating the mask 
expression, the entire values array is passed toABS, producing an array 
result whose elements are then compared to 10. In the assignment 
statement, however, abs is only invoked for those particular elements of 
values corresponding to true elements of the mask. Also, note the mixed 
use of arrays and scalars in the assignment statement expressions. 

The mask expression must have the same shape as the arrays in the 
assignment statements, but it might involve completely separate arrays. 

I n the following example, a, b, and c can be independent of d and e, as 
long as they are all conformable: 

WHERE (a+b .EQ. c) d = SIN(e) 

The following example illustrates why the order of processing is 
important for dependency reasons: 

REAL a (100) 

REAL b(100) 

EQUIVALENCE b, a 

WHERE(a(1:20:1) .GT. 0) a(20:l:-l) = -1.0 

WHERE (a(61:100:2) .LT. 1) b(20:l:-l) = a(l:20:l) * 100.0 

I n the first where statement, changing elements of a in the assignment 
might bethought to affect the mask expression. However, because the 
mask is evaluated before the assignment is processed, the behavior of 
this statement is well defined. A similar situation arises in thesecond 
where statement. Assignment values to elements of the assignment 
variable b alter the elements of the assignment expression a * 100.0. 
Because the assignment expression is evaluated for all trueelements of 
the mask before any transfer of values to b, the behavior is again well 
defined. 

It is important to note that assignment statements in a where construct 
are processed sequentially. I n the next example, thesecond assignment 
is not processed until thefirst is completely finished. This means that 
the values of b used in thesecond assignment have been modified by the 
first statement: 

WHERE (SQRT(ABS (a)) .gt. 3.0) 

b = SIN(a) 
c = SQRT(b) 

ENDWHERE 
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Related statements end (construct) and elsewhere 

Related concepts For related information, see the foil owing: 

• The discussion of arrays in Chapter 4, "Arrays,” on page 51 

• "M asked array assignment" on page 99 
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WRITE 


WRITE 

Outputs data to external and internal files. 

write (io-specifier-list) [output-list] 
output-list 

is a list of comma-separated data items for output. The data 
items can include expressions and implied-DO. 
io-specifier-list 

is a list of the foil owing comma-separated I/O specifiers: 
[unit=] unit 

specifies the unit connected to the output file, unit can 
be one of the fol I owi ng: 

• The name of a character variable, indicating 
an internal file 

• An integer expression that evaluates to the 
unit connected to an external file 

• An asterisk, indicating the preconnected unit 
6 (standard output) 

If the optional keyword unit= is omitted, unit must be 
the first item in io-specifier-list. This is theonly 
specifier required in io-specifier-list. 

[fmt=] format 

specifies the format specification for formatting the 
data, format can be one of the fol I owing: 

• An asterisk (*), specifying list-directed I/O 

• The label of a format statement containing 
the format specification 

• An integer variable that has been assigned 
the label of a format statement 

• An embedded format specification 
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NOTE 


I f the optional keyword fmt= is omitted, format must 
be the second item in io-specifier-list. 

TheNML= and fmt= specifier may not both appear in the same io- 
specifier-list. 


[nml=] name 

specifies the name of a namelist group for namelist- 
directed output, name must have been defined in a 
namelist statement. If the optional keyword nml= is 
omitted, name must be the second item in the list. The 
first item must be the unit specifier without the 
optional keyword unit=. 

TheNML= and fmt= specifier may not both appear in 
thesame io-specifier-list. 

ADVANCE=character-expressi on 

specifies whether to use advancing I/O for this 
statement, character-expression can be one of the 
following arguments: 


'yes' Use advancing formatted 

sequential I/O default. 

'no' Use nonadvancing formatted 

sequential I/O. 

If the advance= specifier appears in io-specifier-list, 
unit must be connected to an external file opened for 
formatted sequential I/O. Nonadvancing I/O is 
incompatible with list-directed and namelist I/O. 

ERR=stmt-label 

specifies the label of the executable statement to which 
control passes if an error occurs during statement 
execution. 
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iosTAT=integer-variable 

returns the I/O status after the statement executes. If 
the statement executes successfully, integer-variableis 
set to zero. If an error occurs, it is set to a positive 
integer that indicates which error occurred. 

REC=i nteger-expressi on 

specifies the number of the record to be written to the 
file connected for direct access. This specifier cannot 
appear in io-specifier-list with theNML= and advance= 
specifiers, nor with fmt=* (for list-directed I/O). 

The write statement transfers data from internal storagetoan external 
or internal file. An external file can be opened for sequential accessor 
direct access I/O. If it is opened for sequential access, the write 
statement can perform thefollowing types of I/O: 

• Formatted 

• U nfor matted 

• List-directed 

• Namelist-directed 

If thefile is opened for direct access, the write statement can perform 
formatted or unformatted I/O. 

write statements operating on internal files can perform formatted or 
list-directed I/O. 

For detailed information about files and different types of I/O, see 
Chapter 8, "I/O and file handling,"on page 171. 

The examples in this section illustrate different uses of the write 
statement. 
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Nonadvancing I/O 

CHARACTER(LEN=17) :: prompt = 'Enter a number: ' 

WRITE (6, '(A)', ADVANCE='NO') prompt 

The write statement outputs tothefile connected to unit 6, which is 
preconnected to standard output. The advance=' no' specifier indicates 
the following: 

• Thefile has been opened for formatted sequential I/O. 

• The statement uses nonadvancing I/O to read an integer formatted as 
four characters into the variable prompt. 

The effect of the nonadvancing write isto output thecharacter string in 
prompt to standard output without a terminating newline. This means 
that anything subsequently entered by the user will appear on thesame 
line. 

Internal file 

CHARACTER(LEN=80) :: cfile 

WRITE (cfile, '(15, F10.5)') i, x 

The statement writes a string of characters into the internal file cfile, 
using the embedded format specification to perform the format 
conversion. 

Namelist-directed I/O 

I n the next example, each of thefour write statements following the 
namelist statement uses a different style of syntax to do exactly the 
same thing: 

NAMELIST /nl/ a, b, c 

WRITE (UNIT=6, NML=nl) ! 6 = standard output 
WRITE (6, nl) 

WRITE (*, NML=nl) ! * = standard output 

WRITE nl ! assume standard output 

List-directed I/O 

WRITE (6, *) int_var 

This statement converts the value of int_var to character format and 
outputs the character string to standard output. The format conversion 
is based on the type of int_var. If you knew the format, you could 
substitute for the asterisk one of the foil owing: 
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• The label of the format statement with the format specification, as 
in: 

WRITE (6, 100) int_var 
100 FORMAT(14) 

• An embedded format specification itself, as in: 

WRITE (6, '(14)') int_var 

Unformatted direct-access I/O 

WRITE (31, REC=rec_num, ERR=99, IOSTAT=ios) a, b 

This statement outputs tothefile connected to unit 31. The reo 
specifier indicates that thefilehas been opened for direct access and that 
this statement will output to the record whose number is stored in the 
variable rec_num. If an I/O error occurs during the execution of the 
statement, an error number will be stored in ios, and execution control 
will branch to the executable statement at label 99. 

CLOSE, OPEN, PRINT, and READ 

For information about I/O concepts, seeChapter 8, "I/O and file 
handling," on page 171, which also lists example programs that use I/O. 
For information about I/O formatting, seeChapter 9, "I/O formatting,"on 
page 205. 
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NOTE 


I ntrinsic procedures are built-in functions and subroutines that are 
available by default to every Fortran 90 program and procedure. This 
chapter describes the intrinsic procedures provided by H P Fortran. All 
intrinsic procedures defined bytheFortran 90 Standard aresupported in 
H P Fortran. 

Thefollowing topics aredescribed in this chapter: 

• Basic terms and concepts 

• Nonstandard intrinsic procedures 

• Data representation models 

• Functional categories of intrinsic procedures 

• I ntrinsic procedure specifications 

HP Fortran intrinsic procedures are provided in the libraries 
/opt/fortran90/lib/libF90.a and /usr/lib/libcl.a. 
/usr/lib/libci. 2 is used instead of libel.a if using shared libraries 
(the default). 
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Basic terms and concepts 

The following sections descri be the terms and concepts that are used in 
this chapter to describe intrinsic procedures. 

Availability of intrinsics 

An intrinsic procedure is available in every Fortran 90 program unit 
except when an intrinsic and a user-defined procedure (or a library 
procedure) have the same name, and the user-defined procedure: 

• H as the external attri bute; see "external (statement and 
attribute)" on page 328 for more information. Library routines are 
decl ared i n the user program with the external attri bute so that 
they will be called instead of intrinsics that have the same name. 

• H as an explicit interface; see "Procedure interface" on page 151 for a 
description. A statement function has an explicit interface and 
therefore, if it has the same name as an intrinsic, will be recognized 
instead of the intrinsic. 

Both a user-defined procedure and an intrinsic may have the same 
name when the user-defined procedure is used to extend a generic 
intrinsic and the argument types differ. See "Generic procedures" on 
page 154 for a descri ption of this. 

Subroutine and function intrinsics 

I ntrinsic procedures are available as functions and subroutines. I n 
general, they behavethe same as user-defined subroutines and 
functions. I ntrinsic subroutines are invoked by the call statement and 
can return values through arguments passed to the intrinsic. I ntrinsic 
functions can be referenced as part of an expression or in a statement 
that expects a value. 

All interface intrinsic subroutines and functions have an explicit 
interface. 
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NOTE 


Generic and specific function names 

The names of intrinsic functions can be either generic or specific. The 
name is generic—for example, abs— if it permits arguments of different 
types. A name is specific—for example, iabs— if it permits arguments of 
one data type only. 

A specific intrinsic function can be passed as an argument if it has the 
intrinsic attribute. A generic intrinsicfunction can have the 
intrinsic attribute if it is also the specific name, as in the case of the 
sin intrinsic. See "Procedure dummy argument" on page 142 and the 
description of "intrinsic (statement and attribute)" on page 363. 

Some compile-line options—for example, +autodbi —change the default 
data type sizes and can cause different or invalid intrinsic procedure 
references. 

Classes of intrinsics 

I ntrinsic procedures are classified as: 

• Elemental intrinsics 

• Transformational functions 

• I nquiry functions 

The following sections describe each class. The descriptions in "I ntrinsic 
procedure specifications" on page 487 identify the class of each intrinsic. 

Elemental intrinsics 

An intrinsic procedure is elemental if it is specified as having scalar 
arguments but will actual arguments that are arrays. Calling an 
elemental intrinsic with an array argument causes the function to 
perform the scalar operation on each element of the array, mvbits is the 
only elemental subroutine. All other intrinsic subroutines are 
nonelemental. 

An elemental function that is called with all scalar dummy arguments 
delivers a scalar result. Calling an elemental function with conformable 
array arguments, however, results in a conformable array result. If both 
array and scalar arguments are specified to an elemental function, each 
scalar istreated as an array in which all elements havethescalar value. 
The "scalar array" is conformable with the array arguments. 
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Transformational functions 

Transformational intrinsic functions are nonelemental. Such functions 
require at least one array argument and return either a scalar or array 
result based on actual arguments that cannot be evaluated elementally. 
Often, an array result will be of a different shape than the argument(s). 
For example, sum returns a scalar result that represents the sum of all 
the elements of the array argument. 

Inquiry functions 

I nquiry intrinsic functions return information based on the properties of 
the principal argument—its value is irrelevant, and the argument need 
not be defined. For example, the size inquiry function can be used to 
return the extent of an array along onedimension or the total number of 
elements in the array. 

Optimized intrinsic functions 

The following intrinsics are available in millicode versions, which are 
optimized for performance. To get access the millicode intrinsics, you 
must optimize at level 2 or higher, or compile with the +oiibcaiis 
option. Seethe Fortran 90 Programmer's Guide for information on this. 


acos 

cos 

pow 

asin 

exp 

sin 

atan 

log 

tan 

atan2 

loglO 
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Nonstandard intrinsic procedures 

HP Fortran 90 supports all intrinsic procedures defined by the 
Fortran 90 Standard. I n addition, it supports the nonstandard intrinsic 
procedures listed in Table 53 on page 485. Like the standard intrinsics, 
the nonstandard intrinsics are part of the H P Fortran 90 language: their 
recognition is not enabled by compile-line options, and their generic 
nature, types, and dummy argument attributes are known to the 
compiler. 

The nonstandard intrinsics provide: 

• Additional functionality not defined in the Standard 

• Compatibility with other Fortran 90 implementations 

• Specific routines for data types beyond those in the Standard 

Both standard and nonstandard intrinsics are described in "I ntrinsic 
procedure specifications” on page 487. 
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Data representation models 

The Fortran 90 Standard specifies data representation models that 
suggest how data are represented in the computer and how computations 
are performed on the data. The computations performed by some Fortran 
90 intrinsic functions are described in terms of these models. 

There are three data representation models in Fortran 90: 

• 'TheBit Model"on page481 

• 'TheInteger Number System Model"on page482 

• 'TheReal Number System Model"on page482 

In any given implementation, the model parameters are chosen to match 
the implementation as closely as possible. Flowever, an exact match is 
not required, and the model does not imposeany particular arithmeticon 
the implementation. 

Data representation model intrinsics 

Several intrinsic functions provide information about the three data 
representation models. These intrinsics are listed in Table 52. 


Table 52 Intrinsic functions and data representation models 


Intrinsic function 

Description 

"B1 T_SI ZE(1)" on page 500 

Number of bits in an integer of the kind of i (i is an 
object, not a kind number) 

"DlGITS(X)"on page510 

Base digits of precision in integer or real model for x 

"EPSILON(X)"on page515 

Small value compared to 1 in real model for x 

"EXPONENT(X)"on page516 

Real model exponent value for x 

"F RACTI ON(X)" on page 517 

Real model fraction value for x 

"HUGE(X)" on page 519 

Largest model number in integer or real model for x 

"M AXEXPON ENT(X)" on page 547 

Maximum exponent value in real model for x 

"MlNEXPONENT(X)"on page551 

M ini mum exponent value in real model for x 
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Intrinsic function 

Description 

"NEAREST(X, S)"on page556 

Nearest processor real value 

"PRECISION(X)"on page559 

Decimal precision in real model for x 

"RADIX(X)"on page 562 

Base (radix) in integer or real model for x 

"RANGE (X)"on page 564 

Decimal exponent range in integer or real model for 

X 

"RRSPACI NG(X)" on page 567 

l/(relativespacing near x) 

"SCALE(X, 1)"on page 568 

x with real model exponent changed by i 

"SET_EXPONENT(X, l)"on 
page 571 

Set the real model exponent of x to i 

"SPACING(X)"on page575 

Absolute spacing near x 

'TINY(X)" on page 581 

Smallest number in real model for x 


The Bit Model 

The bit model interprets a nonnegative scalar data object a of type 
integer as a sequence of binary digits (bits), based upon the model: 


n- 1 

a = s b k 2 
k =0 

where n is the number of bits, given by the intrinsic function bit_size 
and each b has a bit value of 0 or 1. The bits are numbered from right to 
left beginning with 0. 
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The Integer Number System Model 

The integer number system is modeled by: 


■ 

i 


q-1 

= s I V 

k =0 


k 


where 

i is the integer value. 

s is the sign (+1 or-1). 

r is the radix given by the intrinsic function radix 

(always 2 for HP systems). 

q is the number of digits (integer greater than 0), given 

by the intrinsic function digits. 

d is the kth digit and is an integer 0 <=d<r. The digits 

are numbered left to right, beginning with 1. 

The Real Number System Model 

The real number system is modeled by: 

e p 

x = sk> £ f 

k =1 

where 

x is the real value. 

s is the sign (+1 or-1). 

b is the base (real radix) and is an integer greater than 1, 

given by the intrinsic function radix (always 2 for HP 
systems). 
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e is an integer between some minimum value (Imin) and 

maximum value(lmax), given by theintrinsicfunctions 

MINEXPONENT and MAXEXPONENT. 

p is the number of mantissa digits and is an integer 

greater than 1, given by the intrinsic function digits. 

f k is the kth digit and is an integer 0 <=f k <b, but f x may 

be zero only if all thef k are zero. The digits are 
numbered left to right, beginning with 1. 
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Functional categories of intrinsic 
procedures 

This section categorizes HP Fortran intrinsic procedures based on their 
functionality. The procedures aredivided into the following categories: 

• Array construction, array inquiry, array location, array 
manipulation, array reduction, array reshape 

• Bit inquiry, bit manipulation 

• Character computation, character inquiry 

• Floating-point manipulation, mathematical computation, matrix 
multiply, numeric computation, numeric inquiry, and vector multiply 

• Kind 

• Logical 

• Nonstandard intrinsic procedures 

• Pointer inquiry 

• Presence inquiry 

• Pseudorandom number 

• Time 

• T ransfer 

A listing of intrinsic procedures, ordered alphabetically by category, 
appears in "I ntrinsic procedures by category” on page 485. More 
complete information on the individual intrinsic procedures is provided 
in "I ntrinsic procedure specifications” on page 487. 
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Table 53 Intrinsic procedures by category 


Category 

Intrinsic routines 

Array construction 

MERGE, PACK, SPREAD, UNPACK 

Array inquiry 

ALLOCATED, LBOUND, SHAPE, SIZE, UBOUND 

Array location 

MAXLOC, MINLOC 

Array manipulation 

CSHIFT, EOSHIFT, TRANSPOSE 

Array reduction 

ALL, ANY, COUNT, MAXVAL, MINVAL, PRODUCT, SUM 

Array reshape 

RESHAPE 

Bit inquiry 

BIT_SIZE 

Bit manipulation 

BTEST, IAND, IBCLR, IBITS, IBSET, IEOR, IOR, ISHFT, 
ISHFTC, MVBITS, NOT 

Character computation 

ACHAR, AD JUSTL, AD JUSTR, CHAR, IACHAR, ICHAR, INDEX, 
LEN_TRIM, LGE, LGT, LLE, LLT, REPEAT, SCAN, TRIM, 

VERIFY 

Character inquiry 

LEN 

Floating-point manipulation 

EXPONENT, FRACTION, NEAREST, RRSPACING, SCALE, 
SET_EXPONENT, SPACING 

Kind 

KIND, SELECT_INT_KIND, SELECTED_REAL_KIND 

Logical 

LOGICAL 

Mathematical computation 

ACOS, ASIN, ATAN, ATAN2, COS, COSH, EXP, LOG, LOGIO, 

SIN, SINH, SQRT, TAN, TANH 

Matrix multiply 

MATMUL 
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Category 

Intrinsic routines 

Nonstandard intrinsic 

ABORT, ACOSD, ACOSH, AND, ASIND, ASINH, ATAN2D, ATAND, 

procedures 

ATANH, BADDRESS, COSD, DATE, DCMPLX, DFLOAT, DNUM, 
DREAL, EXIT, FLUSH, FNUM, FREE, FSET, FSTREAM, GETARG, 
GETENV, GRAN, HFIX, IACHAR, IADDR, IARGC, IDATE, IDIM, 

IGETARG, IJINT, IMAG, INTI, INT2, INT4, INT8, INUM, 
IOMSG, IQINT, IRAND, IRANP, ISIGN, ISNAN, IXOR, JNUM, 
LOC, LSHFT, LSHIFT, MALLOC, MCLOCK, OR, QEXT, QFLOAT, 
QNUM, QPROD, RAN, RAND, RNUM, RSHFT, RSHIFT, SECNDS, 
SIND, SIZEOF, SRAND, SYSTEM, TAND, TIME, XOR, ZEXT 

Numeric computation 

ABS, AIMAG, AINT, ANINT, CEILING, CMPLX, CONJG, DBLE, 
DIM, DPROD, FLOOR, INT, MAX, MIN, MOD, MODULO, NINT, 

REAL, SIGN 

Numeric inquiry 

DIGITS,EPSILON, HUGE, MAXEXPONENTS, MINEXPONENTS, 
PRECISION,RADIX,RANGE,TINY 

Pointer inquiry 

ASSOCIATED 

Optional argument inquiry 

PRESENT 

Pseudorandom number 

RANDOM_NUMBER, RANDOM_SEED 

Time 

DATE_AND_TIME, SYSTEM_CLOCK 

Transfer 

TRANSFER 

Vector multiply 

DOT_PRODUCT 
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Intrinsic procedure specifications 

The following sections describe the H P Fortran intrinsic procedures. The 
descriptions areordered alphabetically, by intrinsic name. All of the 
intrinsics are generic. This means that the type, kind, and rank of the 
actual arguments can differ for each reference to the same intrinsic. I n 
many cases, the kind and type of intrinsic function results are the same 
as that of the principal argument. For example, the sin function may be 
called with any kind of real argument or any kind of complex argument, 
and the result has the type and kind of the argument. 

I ntrinsic procedure references may use keyword option. The actual 
argument expression is preceded by the dummy argument name—the 
argument keyword—and the equals sign (=). The argument keywords 
are shown in the descriptions. 

Some intrinsic procedure's arguments are optional. Optional arguments 
are noted as such in the following descriptions. 
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ABORTQ 


Description 

Closeall files, terminate the program, and causean exception tocreatea 
core file. 

Class 

Nonstandard subroutine. 


ABS(A) 

Description 

Absolute value. 

Class 

E lemental function. 

Argument 

a must be of type integer, real, or complex. 

Result type/ 
type parameters 

The same as a except that if a is complex, the result is real. 

Result value(s) 

• If a is of type integer or real, the value of the result is | a| . 

• If a is complex with value (x, y), the result is equal to a processor- 
dependent approximation to the square root of (x 2 +y 2 ). 

Specific forms 

BABS, CABS, CDABS, DABS, HABS, QABS, ZABS. 


ACHAR(I) 

Description 

Returns the character in a specified position of the ASCII collating 
sequence. It is the inverse of the iachar function. 

Class 

E lemental function. 

Argument 

i must be of type integer. 

Result type/ 
type parameters 

Character of length one with kind type parameter value kind (' a' ) ■ 

Result value 

If i has a value in the range 0 <= i <= 127, the result is the character in 
position i of the ASCII collating sequence, provided the processor is 
capable of representing that character; otherwise, the result is processor- 
dependent. 
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Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 

Specific forms 


Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 

Specific forms 


If the processor is not capable of representing both uppercase and 
lowercase letters and i corresponds to a letter in a case that the 
processor is not capable of representing, the result is the letter in the 
case that the processor is capableof representing. 

achar (iachar (C) ) must have the value c for any character c capable 
of representation in the processor. 

ACOS(X) 

Arccosine (inversecosine) function in radians. 

E lemental function. 

x must be of type real with a valuethat satisfies the inequality | x| <= 

1. 

Same as x. 


The result has a value equal to a processor-dependent approximation to 
arccos(X), expressed in radians. It lies in the rangeO <=acos (x) <=Pi. 

DCOS, QACOS. 

ACOSD(X) 

Arccosine (inversecosine) function in degrees. 

Elemental nonstandard function. 

x must be of type real with a valuethat satisfies the inequality | x| <=1. 
Same as x. 


The result has a value equal to a processor-dependent approximation to 
arccos(X), expressed in degrees. It lies in the rangeO <=acosd (x) <= 
180 . 

DACOSD, QACOSD. 
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Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 

Specific forms 


Description 
Class 
Argument 
Result type 
Result value 


Description 

Class 
Argument 
Result type 


ACOSH(X) 

Hyperbolic arccosine of radians. 

Elemental nonstandard function, 
x must be of type real with a value x >= 1. 

Same as x. 

The result has a value equal to a processor-dependent approximation to 
the hyperbolic arccosine of x. It lies in the range 0 <=acosh (x) . 

DACOSH, QACOSH. 

ADJ USTL(STRING) 

Adjust to the left, removing leading blanks and inserting trailing blanks. 

E lemental function. 

string must be of type character. 

Character of the same length and kind type parameter as string. 

The value of the result is the same as string except that any leading 
blanks have been deleted and thesame number of trailing blanks have 
been inserted. 

ADJ USTR(STRING) 

Adjust to the right, removing trailing blanks and inserting leading 
blanks. 

E lemental function. 

string must be of type character. 

Character of thesame length and kind type parameter as string. 
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Result value 


Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 


Optional argument 

Description 

Class 

Arguments 

Result type/ 
type parameters 

Result value 

Specific forms 


The value of the result is the same as string except that any trailing 
blanks have been deleted and the same number of leading blanks have 
been inserted. 

AIMAG(Z) 

I maginary part of a complex number. 

E lemental function, 
z must be of type complex. 

Real with the same kind type parameter as z. 


If z has the value (x, y), the result has value y. 

AlNT(A, KIND) 

KIND 

Truncation to a whole number. 

E lemental function. 
a must be of type real. 

kind (optional) must be a scalar integer initialization expression. 

The result is of type real. If kind is present, the kind type parameter is 
that specified by kind; otherwise, the kind type parameter is that of a. 

If I A| <1, aint (A) has the value 0; if a >= 1, aint (a) has a value 
equal to the integer whose magnitude is the largest integer that does not 
exceed the magnitude of a and whose sign is the same as the sign of a. 

DDINT,DINT,QINT. 
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Optional argument 

Description 

Class 

Arguments 

Result type, 
type parameters, 
and shape 

Result value 


ALL (MASK, DIM) 

DIM 

Determine whether all values are . true . in mask along dimension dim. 

Transformational function. 

mask must be of type logical. It must not be scalar. 

dim (optional) must be scalar and of type integer with value in the 
range 1 <=dim <=n where n is the rank of mask. The 
corresponding actual argument must not bean optional 
dummy argument. 

The result is of type logical with thesame kind type parameter as mask. 

It is scalar if dim is absent or mask has rank one; otherwise, the result is 

an array of rank n-1 and of shape (d 1( d 2 ,..., d D | M _i, d D! M +1 ,..., d n ) where 

(d 1( d 2 ,..., d n ) is the shape of mask. 

Casel The result of all (mask) has the value . true . if all 

elements of mask are . true . or if mask has size zero, 
and the result has value . false . if any element of 

MASK iS . FALSE . . 

Case 2 If mask has rank one, all (mask, dim) has a value 

equal to that of all (mask) . Otherwise, thevalueof 

element (s 1( s 2 . s Dm _ lt s D , M+1 .s n ) of all (mask, 

dim) is equal to all(mask ( s v s 2 , ..., s Dm _ 1 , :, s DiM+1 , 
...,s n )). 
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Description 

Class 

Argument 

Result type, 
type parameters, 
and shape 

Result value 


Description 

Class 

Arguments 


Result type/ 
type parameters 

Result value 

Table 54 


ALLOCATE D(ARRAY) 

I ndicate whether or not an allocatable array is currently allocated. 
I nquiry function. 

array must bean allocatable array 
Default logical scalar. 


The result has the value . true . if array is currently allocated and has 
the value . false . if array is not currently allocated. The result is 
undefined if the allocation status of the array is undefined. 

AND(IJ) 

Logical and. 

Elemental nonstandard function, 
i must be of type i nteger. 

j must be of type integer with the same kind type 

parameter as i. 


Same as i. 


The result has the value obtained by performing a logical and on i and j 
bit-by-bit according toTable54. 

Truth table for AND intrinsic 


I 

J 

AND(I, J) 

1 

1 

1 
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Class 

Arguments 

Result type/ 
type parameters 

Result value 

Specific forms 


Intrinsic procedures 

Intrinsic procedure specifications 


I 

J 

AND(I, J) 

1 

0 

0 

0 

1 

0 

0 

0 

1 


The model for interpreting an integer value as a sequence of bits is 
described in 'TheBit Model"on page481. 

ANINT(A, KIND) 

KIND 

Nearest whole number. 

E lemental function. 
a must be of type real. 

kind (optional) must be a scalar integer initialization expression. 

The result is of type real. If kind is present, the kind type parameter is 
that specified by kind; otherwise, the kind type parameter is that of a. 

If a>0, anint (a) has the value aint (A+o . 5); if a <=0, anint (A) has 
the value aint (a-o . 5). 

DNINT, QNINT. 
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Optional argument 

Description 

Class 

Arguments 

Result type, 
type parameters, 
and shape 

Result value 


ANY(MASK, DIM) 

DIM 

Determine whether any value is .true, in mask along dimension dim. 

Transformational function. 

mask must be of type logical. It must not be scalar. 

dim (optional) must be scalar and of type integer with a value in the 
range 1 <=dim <=n, where n is the rank of mask. The 
corresponding actual argument must not bean optional 
dummy argument. 

The result is of type logical with the same kind type parameter as mask. 

It is scalar if dim is absent or mask has rank one; otherwise, the result is 

an array of rank n-1 and of shape (d 1( d 2 ,..., dpiM^, d D | M+1 ,..., d n ) where 

(d 2 , d 2 ,..., d n ) is the shape of mask. 

Casel The result of any (mask) has the value . true . if any 

element of mask is .true, and has the value . false . 
if no elements are . true . or if mask has size zero. 

Case 2 If mask has rank one, any (mask, dim) has a value 

equal to that of any (mask) . Otherwise, thevalueof 

element (s 1( s 2 . s Dm . v s D , M+1 .s n ) of any (mask, 

dim) is equal to any(mask(s 1 , s 2 .Sd,^, :, s D , M+1 , 

-•Sn)). 
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Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 

Specific forms 


Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 

Specific forms 


ASIN(X) 

Arcsine (inverse sine) function in radians. 

E lemental function. 

x must be of type real. Its value must satisfy the inequality | x| >= 1. 
Same as X. 


The result has a value equal to a processor-dependent approximation to 
arcsin(X), expressed in radians. It lies in the range -Pi/2 <=asin (x) <= 
Pi/2. 

DASIN, QASIN. 

ASIND(X) 

Arcsine (inverse sine) function in degrees. 

Elemental nonstandard function. 

x must be of type real. Its value must satisfy the inequality | x| <= 1. 
Same as x. 


The result has a value equal to a processor-dependent approximation to 
arcsin(X), expressed in degrees. It lies in the range 
-90<=asin(x) <=90. 

DASIND, QASIND. 


496 


Chapter 11 



Intrinsic procedures 

Intrinsic procedure specifications 


Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 

Specific forms 

Optional argument 
Description 

Class 

Arguments 

Result type 
Result value 


ASINH(X) 

Hyperbolic arcsine of radians. 
Elemental nonstandard function, 
x must be of type real. 

Same as x. 


The result has a value equal to a processor-dependent approximation to 

the hyperbolic arcsine of x. 

DASINH, QASINH. 

ASSOCIATE D(POI NTE R, TARGET) 

TARGET 

Returns the association status of its pointer argument or indicates the 

pointer is associated with the target. 

I nquiry function. 

pointer must be a pointer and may be of any type. Its pointer 

association status must not be undefined. 

TARGET 

(optional) must be a pointer or target. If it is a pointer, its pointer 

association status must not be undefined. 

The result is scalar of type default logical. 

Case 1 If target is absent, the result is . true . if pointer is 

currently associated with a target and . false . if it is 
not. 

Case 2 If target is present and is a target, the result is 

. true . if pointer is currently associated with 
target and . false . if it is not. 
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Case 3 If target is present and is a pointer, the result is 

. true . if both pointer and target are currently 
associated with the same target, and is .false. 
otherwise. If either pointer or target is 
disassociated, the result is . false .. 


Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 

Specific forms 


Description 

Class 

Arguments 

Result type/ 
type parameters 

Result value 


ATAN(X) 

Arctangent (inverse tangent) function in radians. 
E lemental function, 
x must be of type real. 

Same as x. 


The result has a value equal to a processor-dependent approximation to 
arctan(X), expressed in radians, that lies in the range -Pi/2 <=atan (x) 
<= Pi/2. 


DATAN, QATAN. 

ATAN2(Y, X) 

Arctangent (inverse tangent) function in radians. The result is the 
principal value of the argument of the nonzero complex number (X, Y). 

E lemental function. 

y must be of type real. 

x must be of the same type and kind type parameter as y. 

I f y has the val ue zero, x must not have the val ue zero. 


Same as x. 


The result has a value equal to a processor-dependent approximation to 
the principal value of the argument of the complex number (X, Y), 
expressed in radians. 
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Specific forms 


Description 

Class 

Arguments 

Result type/ 
type parameters 

Result value 


Specific forms 


Description 

Class 

Argument 

Result type/ 
type parameters 


The result lies in the range-Pi <=atan 2 (y, x) <= Pi and is equal to a 
processor-dependent approximation toa value of arctan(Y/X) if x is not 0. 

If y>0, the result is positive. If y=0, the result is zero if x>0 and the 
result is Pi if x<0. If y<0, the result is negative. If x=0, the absolute value 
of the result is Pi/2. 

DATAN2,QATAN2. 

ATAN2D(Y, X) 

Arctangent (inverse tangent) function in degrees. 

Elemental nonstandard function. 
y must be of type real. 

x must be of the same type and ki nd type parameter as y. 

Same as x. 


The result has a value equal to a processor-dependent approximation to 
the principal value of the argument of the complex number (X, Y), 
expressed in degrees, that lies in the range 

-90 <ATAN2D (Y,X) <90. 

DATAN2D,QATAN2D. 

ATAND(X) 

Arctangent (inverse tangent) function in degrees. 

Elemental nonstandard function, 
x must be of type real. 

Same as x. 
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Result value 


Specific forms 


Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 

Specific forms 


Description 
Class 
Argument 
Result type 


Description 


Class 


The result has a value equal to a processor-dependent approximation to 
arctan(X), expressed in degrees, that lies in the range 
-90 < ATAND (X) <90. 

DATAND,QATAND. 

ATANH(X) 

Hyperbolic arctangent of radians. 

Elemental nonstandard function, 
x must be of type real. 

Same as x. 


The result has a value equal to a processor-dependent approximation to 
the hyperbolic arctangent of x. 

DATANH, QATANH. 

BADDRESS(X) 

Return the address of x. 

I nquiry nonstandard function, 
x may be of any type. 

The result is of type default integer. 

BITSIZE(I) 

Returns the number of bits n, defined by the model described in 'The Bit 
Model” on page 481, for integers with the kind parameter of the 
argument. 

I nquiry function. 
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Argument 

Result type, 
type parameters, 
and shape 

Result value 


Description 

Class 

Arguments 

Result type 
Result value 


Specific forms 


Description 

Class 

Argument 

Result type/ 
type parameters 


i must be of type integer. 

Scalar integer with the same kind type parameter as i. 


The result has the value of the number of bits n in the model integer, 
defined for bit manipulation contexts in 'The Bit Model"on page481, for 
integers with the kind parameter of the argument. 

BTEST(l,POS) 

Tests a bit of an integer value. 

E lemental function. 

i must be of type i nteger. 

pos must be of type integer. It must be nonnegative and be 

less than bit_size (i). 

The result is of type default logical. 

The result has the value . true . if bit pos of i has the value 1 and has 
the value . false . if bit pos of i has the value 0. The model for the 
interpretation of an integer value as a sequence of bits is described in 
'The Bit Model”on page481. 

BBTEST, BITEST, BJTEST, BKTEST, HTEST. 

CEILING(A) 

Returns the least integer greater than or equal to its argument. 

E lemental function. 
a must be of type real. 

Default integer. 
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Result value 

Optional argument 
Description 

Class 

Arguments 

Result type/ 
type parameters 

Result value 


Optional arguments 

Description 

Class 

Arguments 
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The result has a value equal to the least integer greater than or equal to 
a. The result is undefined if the processor cannot represent this value in 
the default integer type. 

CHAR(I, KIND) 

KIND 

Returns the character in a given position of the processor collating 
sequence associated with the specified kind type parameter. It is the 
inverse of thefunction ichar. 

E lemental function. 

i must be of type integer with a value in the range 0 <=i 

<=n-l, where n is the number of characters in the 
collating sequence associated with the specified kind 
type parameter. 

kind (optional) must be a scalar integer initialization expression. 

Character of length one. If kind is present, the kind type parameter is 
that specified by kind; otherwise, the kind type parameter is that of 
default character type. 

The result is the character in position i of the collating sequence 
associated with the specified kind type parameter. 

ichar (char (i, kind(C))) must have the value i for 0 <= i <= n-1 
and char ( ichar (C) , kind (c) ) must have the value c for any 
character c capable of representation in the processor. 

CMPLX(X,Y, KIND) 

Y, KIND 

Convert to complex type. 

E lemental function. 

x must be of type i nteger, real, or com pi ex. 
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Result type/ 
type parameters 


Result value 


Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 

Specific forms 


Description 

Class 

Argument 


y (optional) must be of type integer or real. It must not be present if 
x is of type complex. 

kind (optional) must be a scalar integer initialization expression. 

The result is of type complex. If kind is present, the kind type parameter 
is that specified by kind; otherwise, the kind type parameter is that of 
default real type. 

• If y is absent and x is not complex, it is as if y were present with the 
value zero. 

• If y is absent and x is complex, it is as if y were present with the 
value AIMAG (X) . 

cmplx (x, y, kind) has the complex val ue whose real partis 
real (x, kind) and whose imaginary part is real (y, kind) . 

CONJ G(Z) 

Conjugate of a complex number. 

E lemental function, 
z must be of type complex. 

Same as z. 


If z has the value (x, y), the result has the value (x, -y). 

DCONJG. 

COS(X) 

Cosine function in radians. 

E lemental function, 
x must be of type real or complex. 
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Result type/ 
type parameters 

Result value 

Specific forms 


Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 

Specific forms 


Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 

Specific forms 


Same as x. 

The result has a value equal to a processor-dependent approximation to 
cos(X). If x is of type real, it is regarded as a value in radians. If x is of 
type complex, its real part is regarded as a value in radians. 

CCOS, CDCOS, DCOS, QCOS, ZCOS. 

COSD(X) 

Cosine function in degrees. 

Elemental nonstandard function, 
x must be of type real. 

Same as x. 

The result has a value equal to a processor-dependent approximation to 
cos(X). 

DCOSD, QCOSD. 

COSH(X) 

Hyperbolic cosine function. 

E lemental function, 
x must be of type real. 

Same as x. 

The result has a value equal to a processor-dependent approximation to 
cosh(X). 

DCOSH, QCOSH. 
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Optional argument 

Description 

Class 

Arguments 


Result type, 
type parameters, 
and shape 

Result value 


Specific forms 


COUNT(MASK, DIM) 

DIM 

Count the number of .true, elements of mask along dimension dim. 
Transformational function. 

mask must be of type logical. It must not be scalar. 

dim (optional) must be scalar and of type integer with a value in the 
range 

1 <= dim <=n, where n is the rank of mask. The 
corresponding actual argument must not bean optional 
dummy argument. 

The result is of type default integer. It is scalar if dim is absent or mask 
has rank one; otherwise, the result is an array of rank n-1 and of shape 
(d 1( d 2 ,..., dpiM^, d Dm+1 ,..., d n ) where (d 1( d 2 ,..., d n ) istheshapeof 

MASK. 

Case 1 


Case 2 


KCOUNT. 


The result of count (mask) has a value equal to the 
number of . true . elements of mask or has the value 
zero if mask has size zero. 

If mask has rank one, count (mask, dim) has a value 
equal to that of count (mask) . Otherwise, the value of 
element (s^, s 2 ,..., Sqhvi_i, Spnv| + i,..., s n ) of 

COUNT (MASK, DIM) is equal to COUNT (MASK (S^ S 2 , 

•••' S DIM -1' S DIM +1' •••' s n)>- 
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CSHIFT(ARRAY, SHIFT, DIM) 

Optional argument dim 

Description Perform a circular shift on an array expression of rank one, or perform 

circular shifts on all the complete rank one sections along a given 
dimension of an array expression of rank two or greater. 

E lements shifted out at one end of a section are shifted in at the other 
end. Different sections may be shifted by different amounts and in 
different directions (positive for left shifts, negative for right shifts). 

Class Transformational function. 

Arguments array may be of any type. 11 must not be scalar. 

shift must be of type i nteger and must be scalar if array has 

rank one; otherwise, it must be scalar or of rank n-1 
and of shape (dp d 2 ,..., d D , M _!, d D , M+1 ,..., d n ) where 
(dp d 2 ,..., d n ) is the shape of array. 

dim (optional) must bea scalar and of type i nteger with a value in the 
range 1 <=dim <=n, where n is the rank of array. If 
dim is omitted, it is as if it were present with the value 
1. 

Result type, The result is of the type and type parameters of array, and has the 

type parameters, shape of array. 

and shape 

Result value Case 1 If array has rank one, element i of the result is 

ARRAY (1 + MODULO (i + SHIFT - 1, 

SIZE(ARRAY) ) ) . 

Case 2 If array has rank greater than one, section (Sp s 2 ,..., 

s dim- i> S DIM+1. s n) Of the result has a valueequal 

to CSHIFT (ARRAY (S lf S 2 , ..., S D , M .p S D , M+1 , 

...., s n ), sh, l) , wheresh is shift or shift (s lf 

s 2' •••' S DIM -1' S DIM +1' •••' s n>- 

Specific forms kcshift. 
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DATE (DATE STR) 

Description Return current system date. 

Class Nonstandard subroutine. 

Argument datestr must be of type character. It must be a character string of 

length 9 or more. 

DATEANDTI ME (DATE, TIME, ZONE, 
VALUES) 

Optional arguments date, time, zone, values 

Description Returns data on the real-time clock and date in a form compatible with 

the representations defined in ISO 8601:1988 ("Data elements and 
interchangeformats — Information interchange— Representation of 
dates and times"). 

Class Subroutine. 

Arguments date (optional) must be scalar and of type default character, and must 

be of length at least 8 in order to contain thecomplete 
value. It is an intent (out) argument. Its leftmost 8 
characters are set to a value of the form CCYYMMDD, 
where CC is the century, YY the year within the 
century, M M the month within the year, and DD the 
day within the month. If there is no date available, 
they are set to blank. 

time (optional) must be scalar and of type default character, and must 
be of length at least 10 in order to contain thecomplete 
value. It is an intent (out) argument. Its leftmost 10 
characters are set to a value of the form hhmmss.sss, 
where hh is the hour of the day, mm is the minutes of 
the hour, and ss.sss is the seconds and milliseconds of 
the minute. If thereis noclock available, they aresetto 
blank. 

zone (optional) must be scalar and of type default character, and must 
be of length at least 5 in order to contain thecomplete 
value. It is an intent (out) argument. Its leftmost 5 
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VALUES 

(optional) 


characters are set to a value of the form (+/-)hhmm, 
where hh and mm are the time difference with respect 
to Coordinated U niversal Time (UTC) in hours and 
parts of an hour expressed in minutes, respectively. If 
there is no clock available, they are set to blank. 


must be of type default integer and of rank one. It is an 

intent (out) argument. Its size must beat least 8. 

The values returned in values are as follows: 

values ( l ) the year (for example, 1990), or - 

huge (0) ifthereis no date available; 

values (2) the month of the year, or -huge (0) if 
there is no date available; 

values (3) the day of the month, or -huge (0) if 
there is no date available; 

values (4) the time difference with respect to 

Coordinated U niversal Time(UTC) in 
minutes, or -huge (0) if this 
information is not available; 

values (5) the hour of the day, in the range of 0 
to 23, or -huge (0) ifthereis no 
clock; 

values (6) the minutes of the hour, in the range 
0 to 59, or -huge (0) if there is no 
clock; 

values (7) the seconds of the minute, in the 

range0to60, or -huge (0) ifthereis 
no clock; 

values (8) the milliseconds of thesecond, in the 
range 0 to 999, or -huge (0) if there 
is no clock. 

The huge intrinsicfunction is described in "HUGE(X)” 

on page 519. 
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Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 


Specific forms 

Optional argument 

Description 

Class 

Arguments 

Result type/ 
type parameters 


DBLE(A) 

Convert to double precision real type. 

E lemental function. 

A must be of type integer, real, or complex. 
Double precision real. 


Casel If a is of type double precision real, dble (A) =a. 

Case 2 If a is of type integer or real, the result is as much 

precision of the significant part of a as a double 
precision real datum can contain. 

Case 3 If a is of type complex, the result is as much precision 

of the significant part of the real part of a as a double 
precision real datum can contain. 

DBLEQ. 

DCMPLX(X,Y) 

Y 

Convert to double precision complex type. 

Elemental nonstandard function. 

x must be of type i nteger, real, or com pi ex. 

y must not be supplied if x is of type complex; otherwise 

is optional and must be of the same type and kind type 
parameter as x. 

Double precision complex. 
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Description 

Class 

Argument 

Result type/ 
type parameters 

Specific forms 


Description 


Class 

Argument 

Result type, 
type parameters, 
and shape 

Result value 


DFLOAT(A) 

Convert to double precision type. 

Elemental nonstandard function. 
a must be of type i nteger. 

Double precision. 

DFLOTI, DFLOTJ, DFLOTK. 

DIGITS(X) 

Returns the number of significant digits in the model representing 
numbers of the same type and kind type parameter as the argument. 

I nquiry function. 

x must be of type integer or real. It may be scalar or array valued. 
Default integer scalar. 


The result has the value q if x is of type integer and p if x is of type real, 
where q and p are as defined in "Data representation models" on 
page 480 for the model representing numbers of the same type and kind 
type parameter as x. 
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Description 

Class 

Arguments 

Result type/ 
type parameters 

Result value 

Specific forms 


Description 
Class 
Argument 
Result type 


Description 

Class 

Arguments 


DIM(X, Y) 

The difference x-y if it is positive; otherwise zero. 

E lemental function. 

x must be of type i nteger or real. 

y must be of the same type and ki nd type parameter as x. 

Same as x. 

The value of the result is x-y if x >y and zero otherwise. 

BDIM, DDIM, HDIM, QDIM. 

DNUM(I) 

Convert to double precision. 

Elemental nonstandard function, 
i must be of type character. 

Double precision. 

DOT_PRODUCT(VECTOR_A, VECTOR_B) 

Performs dot-product multiplication of numeric or logical vectors. 
Transformational function. 

vector_a must be of numerictype (integer, real, or complex) or of 
logical type. It must be array valued and of rank one. 

vector_b must be of numerictype if vector_a is of numerictype 

or of type logical if vector_a is of type logical. It must 
be array valued and of rank one. It must be of the same 
size as vector_a. 
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type parameters, 
and shape 

Result value 


Description 

Class 

Arguments 

Result type/ 
type parameters 

Result value 
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The result is scalar. 

If the arguments are of numeric type, the type and kind type parameter 
of the result are those of the expression vector_a * vector_b 
determined by the types of the arguments. 

If the arguments are of type logical, the result is of type logical with the 
kind type parameter of the expression vector_a .and. vector_b. 

Case 1 If vector_a is of type integer or real, the result has 

the val ue sum ( vector_a*vector_b ). I f the vectors 
have size zero, the result has the value zero. 

Case 2 If vector_a is of type complex, the result has the 

value sum (conjg (vector_a) *vector_b) . If the 

vectors have size zero, the result has the value zero. 

Case 3 If vector_a is of type logical, the result has the value 

ANY (VECTOR_A . AND . VECTOR_B) . I f the Vectors 

have size zero, the result has the value . false .. 

DPROD(X, Y) 

Double precision real product. 

E lemental function. 

x must be of type default real. 

y must be of type default real. 

Double precision real. 


The result has a value equal to a processor-dependent approximation to 
the product of x and y. 
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Description 

Class 

Argument 

Result 

Optional arguments 
Description 


Class 

Arguments 


DREAL(A) 

Convert to double precision. 

Elemental nonstandard function. 
a must be of type integer, real, or complex. 

Double precision. 

EOSHIFT(ARRAY, SHIFT, BOUNDARY, DIM) 

BOUNDARY, DIM 

Perform an end-off shift on an array expression of rank one or perform 
end-off shifts on all the complete rank-one sections along a given 
dimension of an array expression of rank two or greater. 

E lements are shifted off at one end of a section and copies of a boundary 
val ue are shifted i n at the other end. 

Different sections may have different boundary values and may be 
shifted by different amounts and in different directions (positivefor left 
shifts, negative for right shifts). 

Transformational function. 


ARRAY 

SHIFT 


may be of any type. 11 must not be scalar. 


must be of type i nteger and must be scalar if array has 
rank one; otherwise, it must be scalar or of rank n-1 
and of shape (dp d 2 ,.... d D | M4 , d D | M+1 ,..., d n ) where 
(dp d 2 ,..., d n ) is the shape of array, 
boundary (optional) 

must be of the same type and type parameters as 
array and must be scalar if array has rank one; 
otherwise, it must be either scalar or of rank n-1 and of 
shape (dp d 2 ,..., d D | M . 1( d D | M + x ,..., d n ). boundary may 
be omitted for thedata types listed in Table55, which 
lists the default values of boundary for each data type. 
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Result type, 
type parameters, 
and shape 

Result value 

Specific forms 
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Default values for the BOUNDARY argument 


Data type of array 

Default value of boundary 

1nteger 

0 

Real 

0.0 

Complex 

(0.0, 0.0) 

Logical 

. FALSE . 

Character (len) 

len blanks 


dim (optional) must be scalar and of type integer with a value in the 
range 1 <=dim <=n, where n is the rank of array. If 
dim is omitted, it is as if it were present with the value 
1 . 

The result has the type, type parameters, and shape of array. 


Element (s 1( s lf ..., s n ) of the result has the value array (s 1( s 2 , ..., s D | M ^, 
s D , M +sh, s Dm+1 ,..., s n ) wheresh is shift or shift^, s 2 , ..., s D | M . 1( 

s D | M+1 .s n ) provided the inequality lbound (array, dim) <=s DiM + 

sh <= ubound (array, dim) holds and is otherwise boundary or 
BOUNDARY(Si, S 2 , ..., Sp||\/|_i, Spi |v| ..., s n ). 

KEOSHIFT. 
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Description 

Class 

Argument 

Result type, 

type parameters, and 

shape 

Result value 


Optional argument 
Description 
Class 
Argument 


EPSILON(X) 

Returns a positive model number that is almost negligiblecompared to 
unity in the model representing numbers of the same type and kind type 
parameter as the argument. 

I nquiry function. 

x must be of type real. It may be scalar or array valued. 

Seal ar of the same type and ki nd type parameter as x. 


The result has the value b 1_p where b and p are as defined in 'The Real 
Number System Model"on page482 for the model representing numbers 
of the same type and kind type parameter as x. 

EXIT(STATUS) 

STATUS 

Closeall files and terminate the program. 

Nonstandard subroutine. 
status must be of type i nteger. 

If status is supplied, the cal ling program exits with a return code status 
of status. Otherwise the return code status is indeterminate. 

I n esh the $status environment variable holds the return code for the 
last executed command. I n ksh, the $? environment variable holds the 
return code. 
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Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 

Specific forms 


Description 

Class 
Argument 
Result type 
Result value 


EXP(X) 

Exponential. 

E lemental function, 
x must be of type real or complex. 
Same as x. 


The result has a value equal to a processor-dependent approximation to 
e* If x is of type complex, its imaginary part is regarded as a value in 
radians. 

CEXP,CDEXP,DEXP,QEXP,ZEXP. 

EXPONENT(X) 

Returns the exponent part of the argument when represented as a model 
number. 

E lemental function, 
x must be of type real. 

Default integer. 

The result has a value equal to the exponent eof the model 
representation (see 'The Real N umber System M odel" on page 482) for 
the value of x, provided x is nonzero and eis within the range for default 
integers. The result is undefined if the processor cannot represente in 
the default integer type, exponent (x) has the value zero if x is zero. 
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Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 


Description 

Class 

Description 

Class 


Description 

Class 

Argument 

Result type/ 
type parameters 


FLOOR(A) 

Returns the greatest integer less than or equal to its argument. 

E lemental function. 

A must be of type real. 

Default integer. 

The result has a value equal to the greatest integer less than or equal to 
a. The result is undefined if the processor cannot represent this value in 
the default integer type. 

FLUSH(LUNIT) 

Flush pending I/O on a logical unit. 

Nonstandard subroutine. 

FNUM(UNIT) 

Get an operating system file descriptor. 

I nquiry nonstandard function. 

FRACTION(X) 

Returns the fractional part of the model representation of the argument 
value. 

E lemental function, 
x must be of type real. 

Same as x. 
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Result value 


Description 

Class 

Description 

Class 

Description 

Class 

Description 

Class 

Arguments 
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The result has the value x * b" e , where b and eare as defined in 'The 
Real Number System M odel" on page 482. If x has the value zero, the 
result has the value zero. 

FREE(P) 

F ree a bl ock of memory. 

Nonstandard subroutine. 

FSET(UNIT, NEWFD, OLDFD) 

Attach a system file descriptor to a logical unit. 

Nonstandard subroutine. 

FSTREAM(UNIT) 

Retrieve a C language FILE stream pointer. 

I nquiry nonstandard function. 

GETARG(N f STRING) 

Get the arguments passed to the program. 

Nonstandard subroutine. 

n must be of type integer, n specifies which command¬ 

line argument is requested. When n=1, it returns the 
program name. When n=0, it returns all blanks. 

string must be a character variable. It is assigned the 

requested command-line argument, padded with 
blanks on the end. If the requested argument is longer 
than string, a truncated version is assigned to 

STRING. 
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Description 

Class 

Arguments 


Description 

Class 

Result 


Description 

Class 

Argument 

Result 

Description 

Class 

Argument 


GETENV(VAR, VALUE) 

Return the value of a system environment variable. 

Nonstandard subroutine. 

var and value are of type character, var specifies the environment 
variable name. The character variable value is assigned the 
environment variable's value, value must be declared large enough to 
hold the value. If the environment variable is not defined value is set to 
all blanks. 

GRAN() 

Generate Gaussian normal random numbers. 

Elemental nonstandard function. 

real ( 4 ). The numbers generated by gran have a mean of 0.0, a 
standard deviation of 1.0, and a range of approximately-5.0 through 
45.0. 

HFIX(A) 

Convert to integer (2) type. 

Elemental nonstandard function. 

a must be of type integer, real, double precision, or complex. 

INTEGER (2) type. 

HUGE(X) 

Returns the largest number in the model representing numbers of the 
same type and kind type parameter as the argument. 

I nquiry function. 

x must be of type i nteger or real. It may be scalar or array valued. 
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Result type, 
type parameters, 
and shape 

Result value 


Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 


Description 
Class 
Argument 
Result type 
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Seal ar of the same type and ki nd type parameter as x. 


The result has the value r q -1 if x is of type i nteger and 
(l-b-P)b** W 

if x is of type real, where r, q, b, p, and e^ ax are as defi ned i n ‘The Real 
Number System Model"on page482. 

I ACHAR(C) 

Returns the position of a character in the ASCI I collating sequence. 

E lemental function. 

c must be of type default character and of length one. 

Default integer. 


If c is in the collating sequence defi ned by the codes specified in ISO 
646:1983 ("I nformation technology — I SO 7-bit coded character set for 
information interchange”), the result is the position of c in that sequence 
and satisfies the inequality (0 <= iachar (C) <= 127). 

A processor-dependent value is returned if c is not in the ASCI I collating 
sequence. The results are consistent with the lge, lgt, lle, and llt 
lexical comparison functions. For example, if lle (c, d) is. true., 

iachar (c) .le. iachar (d ) is . true . where c and d are any two 

characters representable by the processor. 

IADDR(X) 

Return the address of x. 

I nquiry nonstandard function, 
x may be of any type. 

The result is of type default integer. 
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Description 

Class 

Arguments 

Result type/ 
type parameters 

Result value 

Table 56 


Specific forms 


See "BADDRESS(X)"on page 500 for examples. 

lAND(IJ) 

Performs a bitwise logical and. 

E lemental function. 

i must be of type i nteger. 

j must be of type integer with the same kind type 

parameter as i. 


Same as i. 


The result has the value obtained by combining i and j bit-by-bit 
accordi ng to Tabl e 56. 

Truth table for I AND intrinsic 


I 

J 

IAND(I, J) 

1 

1 

1 

1 

0 

0 

0 

1 

0 

0 

0 

0 


The model for the interpretation of an integer value as a sequence of bits 
is in 'The Bit Model”on page481. 

BIAND, HIAND, HAND, JIAND, KIAND. 
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Description 

Class 

Result type 
Result value 


Description 

Class 

Arguments 

Result type/ 
type parameters 

Result value 

Specific forms 


IARGCO 

Get the number of arguments passed to the program. 

Elemental nonstandard function. 

I nteger. 

I f no arguments are passed to the program, iargc returns zero. 
Otherwise iargc returns a count of the arguments that follow the 
program name on the command line. 

IBCLR(I, POS) 

Clears a bit to zero. 

E lemental function. 

i must be of type i nteger. 

pos must be of type integer. It must be nonnegative and 

less than bit_size (i). 


Same as i. 


The result has the value of the sequence of bits of i, except that bit pos 
of i is set to zero. The model for the interpretation of an integer value as 
a sequence of bits is in 'TheBit Model”on page 481. 

BBCLR, HBCLR, IIBCLR, JIBCLR, KIBCLR. 
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Description 

Class 

Arguments 


Result type/ 
type parameters 

Result value 


Specific forms 


Description 

Class 

Arguments 

Result type/ 
type parameters 

Result value 

Specific forms 


IBITSU, POS, LEN) 

Extracts a sequence of bits. 

E lemental function. 

i must be of type i nteger. 

pos must be of type integer. It must be nonnegative and 

pos + len must be less than or equal to 

BIT_SIZE(I) . 

len must be of type integer and nonnegative. 

Same as i. 


The result has the value of the sequence of len bits in i beginning at bit 
pos, right-adjusted and with all other bits zero. The model for the 
interpretation of an integer value as a sequence of bits is in 'The Bit 
Model"on page481. 

BBITS, HBITS, IIBITS, JIBITS, KIBITS. 

IBSET(I, POS) 

Sets a bit to one. 

E lemental function. 

i must be of type i nteger. 

pos must be of type integer. It must be nonnegative and 

less than bit_size (i). 


Same as i. 


The result has the value of the sequence of bits of i, except that bit pos 
of i is set toone. The model for the interpretation of an integer value as 
a sequence of bits is in 'The Bit Model "on page 481. 

HBSET,IIBSET,JIBSET,KIBSET. 
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Class 

Argument 

Result type/ 
type parameters 

Result value 


Description 

Class 

Arguments 
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ICHAR(C) 

Returns the position of a character in the processor collating sequence 
associated with the kind type parameter of the character. 

E lemental function. 

c must be of type character and of length one. Its value must be that of a 
character capable of representation in the processor. 

Default integer. 


The result is the position of c in the processor collating sequence 
associated with the kind type parameter of c and is in the range 0 <= 
iachar (C) <n-l, where n is the number of characters in the collating 
sequence. 

For any characters c and d capable of representation in the processor, 

c . le . d is . true . if and only if ichar (C) . le. ichar (d) is . true ., 
and c . eq . d is . true . if and only if ichar (C) . eq . ichar (d) is 

.TRUE.. 

I DATE (MONTH, DAY, YEAR) 

Return the month, day, and year of current system. 

Nonstandard subroutine. 

month, day, and year must be of type i nteger. 
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Description 

Class 

Arguments 

Result type/ 
type parameters 

Result value 

Specific forms 

Description 

Class 

Arguments 

Result type/ 
type parameters 

Result value 


I Dl M(X, Y) 

I nteger positive difference. 

Nonstandard function, 
x must be of type i nteger. 

y must be of type integer with the same kind type 

parameter as x. 

I nteger of same kind type parameter as x. 


If X > Y, IDIM (X, Y) iS X-Y. If X <= Y, IDIM (X, Y)iSZerO. 
IIDIM,JIDIM. KIDIM. 

IEOR(IJ) 

Performs a bitwise exclusive or. 

E lemental function. 

i must be of type i nteger. 

j must be of type integer with the same kind type 

parameter as i. 


Same as i. 


The result has the value obtained by combining i and j bit-by-bit 
accordi ng to Tabl e 57. 
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Table 57 


Specific forms 


Description 

Class 

Arguments 


Result value 


Truth table for IEOR intrinsic 


I 

J 

IEOR(I, J) 

1 

1 

0 

1 

0 

1 

0 

1 

1 

0 

0 

0 


The model for the interpretation of an integer value as a sequence of bits 

is in 'The Bit Model"on page481. 

BIEOR, HIEOR, IIEOR, JIEOR, KIEOR. 

IGETARG(N, STR, STRLEN) 

Get command-line argument. 

I nquiry nonstandard function. 

N must be of type integer, n specifies which command¬ 

line argument is requested. When n=0, it returns the 
program name. 

str must be a character variable. It is assigned first 

strlen characters of the requested command-line 
argument, padded with blanks on the end. If the 
requested argument is longer than str, a truncated 
version is assigned to str. 

strlen must be of type i nteger. strlen specifies the number 

of characters of argument n to assign to str. 

igetarg returns an integer value, either -1 if the requested argument 

was not found, or a positive integer that indicates the number of 

characters copied from the command lineto str. 
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Description 

Class 

Argument 

Result 

Description 

Class 

Argument 

Result 

Optional argument 

Description 

Class 

Arguments 

Result type/ 
type parameters 

Result value 


IJ INT(A) 

Convert to integer (2) type. 

Elemental nonstandard function. 
a must be of type integer (4). 

INTEGER (2) type. 

I MAG (A) 

I maginary part of complex number. 

Elemental nonstandard function. 
a must be of type complex or double complex. 

Real if a is complex. Double precision if a is double complex. 

INDEX(STRING, SUBSTRING, BACK) 

BACK 

Returns thestarting position of a substring within a string. 

E lemental function. 

string must be of type character. 

substring must be of type character with the same kind type 
parameter as string. 

back (optional) must be of type logical. 

Default integer. 


Case 1 If back is absent or present with the value .false., 

the result is the minimum positive value of i such that 

STRING(I : I + LEN(SUBSTRING) - 1) = 

substring or zero if there is no such value. 
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Result value 


Specific forms 
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Zero is returned if len (string) <len (substring) 

and one is returned if len (substring) =0. 

Case 2 If back is present with the value . true ., the result is 

the maximum value of i less than or equal to 

LEN(STRING) - LEN(SUBSTRING) + 1 SUChthat 
STRING(I : I + LEN(SUBSTRING) - 1) = 

substring or zero if there is no such value. 

Zero is returned if len (string) <len (substring) 
and len (string) +1 is returned if len (substring) 

= 0 . 

KINDEX. 

I NT (A f KIND) 

KIND 

Convert to integer type. 

E lemental function. 

a must be of type i nteger, real, or com pi ex. 

kind (optional) must be a scalar integer initialization expression. 

I nteger. If kind is present, the kind type parameter is that specified by 
kind; otherwise, the kind type parameter is that of default integer type. 

Case 1 If a is of type integer, int (A) =a. 

Case 2 If a is of type real, there are two cases: if | a| <1, 

int (A) has the value 0; if | a| >= 1 , int (a) isthe 
integer whose magnitude is the largest integer that 
does not exceed the magnitude of a and whose sign is 
the same as the sign of a. 

Case3 If a is of typecomplex, int (a) is the value obtained by 

applying the above rules (for reals) to the real part of a. 
The result is undefined if the processor cannot 
represent the result in the specified integer type. 

IF IX, I IF IX, TINT, JIFIX, JINT, KIFIX, KINT. 
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Description 

Class 

Argument 

Result 


Description 

Class 

Argument 

Result 


Description 

Class 

Argument 

Result 


I NT 1(A) 

Convert to integer (l) type. 

Elemental nonstandard function. 
a must be of type integer, real, or complex. 

integer ( l ) type. If a is complex, inti (a) is equal to the truncated 
real portion of a. 

I NT2(A) 

Convert to integer (2) type. 

Elemental nonstandard function. 
a must be of type integer, real, or complex. 

integer ( 2 ) type. I f a is complex, int2 (a) is equal to the truncated 
real portion of a. 

I NT4(A) 

Convert to integer (4 ) type. 

Elemental nonstandard function. 
a must be of type integer, real, or complex. 

integer (4) type. I f a is complex, int4 (a) is equal to the truncated 
real portion of a. 
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Description 

Class 

Argument 

Result 

Specific forms 


Description 

Class 

Argument 

Result 


Description 

Class 


Description 

Class 

Arguments 


I NT8(A) 

Convert to integer (8) type. 

Elemental nonstandard function. 
a must be of type integer, real, or complex. 

integer (8) type. I f a is complex, ints (a) is equal to the truncated 
real portion of a. 

IDINT. 

INUM(I) 

Convert character to integer ( 2 ) type. 

Elemental nonstandard function, 
i must be of type character. 

INTEGER (2) type. 

IOMSG(N, MSG) 

Print the text for an I/O message. 

Nonstandard subroutine. 

lOR(IJ) 

Performs a bitwise inclusive or. 

E lemental function. 

i must be of type i nteger. 

j must be of type integer with the same kind type 

parameter as i. 
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Result type/ 
type parameters 

Result value 

Table 58 


Specific forms 


Description 

Class 

Argument 

Result 

Specific forms 


Same as i. 

The result has the value obtained by combining i and j bit-by-bit 
accordi ng to Tabl e 58. 

Truth table for I OR intrinsic 


I 

J 

IOR(I, J) 

1 

1 

1 

1 

0 

1 

0 

1 

1 

0 

0 

0 


The model for the interpretation of an integer value as a sequence of bits 
is in 'The Bit Model”on page481. 

BIOR, HIOR, 11 OR, JIOR, KIOR 

IQINT(A) 

Convert to integer type. 

Elemental nonstandard function. 
a must be of type real ( i 6). 

I nteger type. 

IIQINT, JIQINT,KIQINT. 
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Description 

Class 

Result type/ 
type parameters 

Result value 
NOTE 

Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 


IRANDO 

Generate pseudorandom numbers. 
Elemental nonstandard function. 

INTEGER (4) type. 


rand generates numbers in the range 0 through 2 15 -1. 

For details about restarting the pseudorandom number generator used by 
irand and rand, see “SRAND(ISEED)” on page 577. 

IRANP(X) 

Generate Poisson-distributed random numbers. 

Elemental nonstandard function. 

x must be of real (4 ) type and must be in the range 0.0 through 87.33. 
For better performance, it is recommended that x be less than 50.0 (see 
"Result value" below). 

INTEGER (4) type. 


iranp returns an error code of-1 if X <=0.0. 
iranp returns an error code of-2 if X >87.33. 

iranp calculates exponentially distributed random numbers until the 
product is less than exp (-x) . The random number returned by iranp is 
the number of exponentials needed, minus 1 . iranp makes an average of 
x+1 calls to rand, so it is recommended that x be less than 50. 
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Description 

Class 

Arguments 

Result type/ 
type parameters 

Result value 


Specific forms 

Optional argument 

Description 

Class 

Arguments 


ISHFT(I, SHIFT) 

Performs a logical shift. 

E lemental function. 

i must be of type i nteger. 

shift must be of type integer. The absolute value of shift 

must be less than or equal toBH_sizE (i). 


Same as i. 


The result has the value obtained by shifting the bits of i by shift 
positions. 

If shift is positive, the shift is to the left; if shift is negative, the shift 
is to the right; and if shift is zero, no shift is performed. Bits shifted out 
from the left or from the right, as appropriate, are lost. Zeros are shifted 
in from the opposite end. 

The model for the interpretation of an integer value as a sequence of bits 
is described in 'The Bit Model" on page481. 

BSHFT, HSHFT, IISHFT, JISHFT, KISHFT. 

ISHFTCO, SHIFT, SIZE) 

SIZE 

Performs a circular shift of the rightmost bits. 

E lemental function. 

i must be of type i nteger. 

shift must be of type integer. The absolute value of shift 

must be less than or equal to size. 

size (optional) must be of type integer. The value of size must be 

positiveand must not exceed bit_size (i) . If size is 
absent, it is as if it were present with the value of 

BIT_SIZE(I) . 
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Result type/ 
type parameters 

Result value 


Specific forms 

Description 

Class 

Arguments 

Result type/ 
type parameters 

Result value 

Description 
Class 
Argument 
Result type 


Same as i. 


The result has the value obtained by shifting the size rightmost bits of 
i circularly by shift positions. 

If shift is positive, the shift is to the left; if shift is negative, the shift 
is tothe right; and if shift is zero, no shift is performed. No bits are 
lost. The unshifted bits are unaltered. 

The model for the interpretation of an integer value as a sequence of bits 
is described in 'The Bit Model" on page481. 

HSHFTC,ISHFTC,JISHFTC,KISHFTC. 

ISIGN(A, B) 

Absolute value of a times the sign of b. 

Elemental nonstandard function. 

A must be of type i nteger. 

b must be of type integer with the same kind type 

parameter as a. 


Same as a. 


Thevalueof theresult is | a| if b>=0 and -| a| ifB<0. 

ISNAN(X) 

Determine if a value is NaN (not a number). 

Elemental nonstandard function, 
x must be of type real. 

Logical. 
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Description 

Class 

Arguments 

Result type/ 
type parameters 

Result value 
Table 59 


Specific forms 


IXOROJ ) 

Exclusive or. 

Elemental nonstandard function, 
i must be of type i nteger. 

j must be of type integer with the same kind type 

parameter as i. 

Same as i. 

The result has the value obtained by performing an exclusive or on i 
and j bit-by-bit according to Table 59. 

Truth table for IXOR intrinsic 


I 

J 

IXOR(I, J) 

1 

1 

0 

1 

0 

1 

0 

1 

1 

0 

0 

0 


The model for interpreting an integer value as a sequence of bits is 
described in 'TheBit Model"on page481. 

BIXOR, HIXOR, UXOR, JIXOR. 
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Result type/ 
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Result 


Description 

Class 

Argument 

Result 


Description 

Class 

Argument 

Result type/ 
type parameters 

Result 


IZEXT(A) 

Zero extend. 

Generic elemental nonstandard function. 
a must be of type integer (l), integer (2), 

LOGICAL ( 1 ) , or LOGICAL(2) . 

The result is of type integer (2). 


izext converts a to integer (2) by sign-extending zeroes instead of the 
actual sign bit. 

J NUM(I) 

Convert character to integer type. 

Elemental nonstandard function, 
i must be of type character. 

I nteger type. 

J ZEXT(A) 

Zero extend. 

Generic elemental nonstandard function. 
a must be of type integer ( i ), integer (2), 

INTEGER(4) , LOGICAL(1) , LOGICAL(2) , Or 
LOGICAL(4) . 

The result is of type integer (4). 


jzext converts a to integer (4 ) by sign-extending zeroes instead of the 
actual sign bit. 


536 


Chapter 11 



Intrinsic procedures 

Intrinsic procedure specifications 


Description 

Class 

Argument 

Result type, 
type parameters, 
and shape 

Result value 

Description 

Class 

Argument 

Result type/ 
type parameters 

Result 


KIND(X) 

Returns the value of the kind type parameter of x. 
I nquiry function, 
x may be of any intrinsic type. 

Default integer scalar. 


The result has a value equal to the kind type parameter value of x. 

KZEXT(A) 

Zero extend. 

Generic elemental nonstandard function. 
a must be of type integer (l), integer (2), 

INTEGER(4) , INTEGER(8) , LOGICAL(1) , 

LOGICAL(2) , LOGICAL(4), Or LOGICAL(8) . 

The result is of type integer (8). 

kzext converts a to integer (8) by sign-extending zeroes instead of the 
actual sign bit. 
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LBOUND(ARRAY f DIM) 

DIM 

Returns all the lower bounds or a specified lower bound of an array. 

I nquiry function. 

array may be of any type. 11 must not be seal ar. It must not 

be a pointer that is disassociated or an allocatable 
array that is not allocated. 

dim (optional) must be scalar and of type integer with a value in the 
range 1 <=dim <=n, where n is the rank of array. The 
corresponding actual argument must not bean optional 
dummy argument. 

The result is of type default integer. It is scalar if dim is present; 
otherwise, the result is an array of rank one and size n, where n is the 
rank of array. 

Case 1 For an array section or for an array expression other 

than a whole array or array structure component, 
lbound (array, dim) has the value 1. For a whole 
array or array structure component, lbound (array, 
dim) has the value: 

• equal to the lower bound for subscript dim of array 
if dimension dim of array does not have extent zero 
or if array is an assumed-size array of rank dim 

or 

• one (1), otherwise. 

Case 2 lbound (array) has a value whose ith component is 

equal to lbound (array, i) , for i = 1 , 2, ..., n, where n 
is the rank of array. 


KLBOUND. 
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Specific forms 


Intrinsic procedures 

Intrinsic procedure specifications 

LEN(STRING) 

Returns the length of a character entity. 

I nquiry function. 

string must be of type character. It may be scalar or array valued. 
Default integer scalar. 


The result has a valueequal to the number of characters in string if it 
is scalar or in an element of string if it is array valued. 

KLEN. 

LENTRIM(STRING) 

Returns the length of the character argument without counting trailing 
blank characters. 

E lemental function. 

string must be of type character. 

Default integer. 


The result has a valueequal to the number of characters remaining after 
any trailing blanks in string are removed. If the argument contains no 
nonblank characters, the result is zero. 

KLEN_TRIM. 
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Description 

Class 

Arguments 

Result type/ 
type parameters 

Result value 


Description 

Class 

Arguments 

Result type/ 
type parameters 

Result value 


LGE (STRI NG_A f STRINGB) 

Tests whether a string is lexically greater than or equal to another 
string, based on the ASCI I collating sequence. 

Elemental function. 

string_a must be of type default character. 

string_b must be of type default character. 

Default logical. 


If the strings are of unequal length, the comparison is made as if the 
shorter string wereextended on the right with blanks tothe length of the 
longer string. 

If either string contains a character not in the ASCI I character set, the 
result is processor dependent. 

The result is .true, if the strings are equal or if string_a follows 
string_b in the ASCI I collating sequence; otherwise, the result is 
.false. Note that the result is .true, if both string_a and 
string_b are of zero length. 

LGT(STRING_A, STRING B) 

Tests whether a string is lexically greater than another string, based on 
the ASCI I collating sequence. 

E lemental function. 

string_a must be of type default character. 
string_b must be of type default character. 

Default logical. 


If the strings are of unequal length, the comparison is made as if the 
shorter string wereextended on the right with blanks tothe length of the 
longer string. 
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Description 

Class 

Arguments 

Result type/ 
type parameters 

Result value 


If either string contains a character not in the ASCI I character set, the 
result is processor-dependent. 

The result is .true, if string_a follows string_b in the ASCII 
collating sequence; otherwise, the result is . false .. Note that the result 
is . false . if both string_a and string_b are of zero length. 

LLE(STRING_A f STRINGB) 

Tests whether a string is lexically less than or equal to another string, 
based on the ASCI I collating sequence. 

Elemental function. 

string_a must be of type default character. 
string_b must be of type default character. 

Default logical. 


If the strings are of unequal length, the comparison is made as if the 
shorter string wereextended on the right with blanks tothe length of the 
longer string. 

If either string contains a character not in the ASCI I character set, the 
result is processor dependent. 

The result is .true, if the strings are equal or if string_a precedes 
string_b in the ASCI I collating sequence; otherwise, the result is 
. false .. Note that the result is .true, if both string_a and 
string_b are of zero length. 
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Description 

Class 

Arguments 

Result type/ 
type parameters 

Result value 


Description 

Class 


LLT(STRING_A, STRING B) 

Tests whether a string is lexically less than another string, based on the 
ASCII collating sequence. 

E lemental function. 

string_a must be of type default character. 
string_b must be of type default character. 

Default logical. 


If the strings are of unequal length, the comparison is made as if the 
shorter string wereextended on the right with blanks tothe length of the 
longer string. 

If either string contains a character not in the ASCI I character set, the 
result is processor-dependent. 

The result is .true, if string_a precedes string_b in the ASCI I 
collating sequence; otherwise, the result is . false .. Note that the result 
is . false . if both string_a and string_b are of zero length. 

LOC(X) 

Return the address of the argument. 

I nquiry nonstandard function. 
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Class 

Argument 

Result type/ 
type parameters 

Result value 


Specific forms 


Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 

Specific forms 


LOG(X) 

Natural logarithm. 

E lemental function. 

x must be of type real or complex. If x is real, its value must be greater 
than zero. If x is complex, its value must not be zero. 

Same as x. 


The result has a value equal to a processor-dependent approximation to 
loggX. A result of type complex is the principal value with imaginary part 
w in the range -Pi <w <=Pi. The imaginary part of the result is Pi only 
when the real part of the argument is less than zero and the imaginary 
part of the argument is zero. 

ALOG, CDLOG, CLOG, DLOG, QLOG, ZLOG. 

LOGIO(X) 

Common logarithm. 

E lemental function. 

x must be of type real. The value of x must be greater than zero. 

Same as x. 


The result has a value equal to a processor-dependent approximation to 
logiox. 


ALOGIO, DLOGIO, QLOGIO. 
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Class 
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Result type/ 
type parameters 

Result value 

Description 

Class 

Description 

Class 

Description 

Class 


LOGICAL(L, KIND) 

KIND 

Converts between kinds of logical. 

E lemental function. 

l must be of type logical. 

kind (optional) must be a scalar integer initialization expression. 

Logical. If kind is present, the kind type parameter is that specified by 
kind; otherwise, the kind type parameter is that of default logical. 

The value is that of l. 

LSHFT(I, SHIFT) 

Left shift. 

Elemental nonstandard function. 

LSHIFT(I, SHIFT) 

Left shift. 

Elemental nonstandard function. 

MALLOC(SIZE) 

Allocate a block of memory. 

Transformational nonstandard function. 
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MATMUL(MATRIX_A, MATRIX B) 

Performs matrix multiplication of numeric or logical matrices. 
Transformational function. 


matrix_a must be of numerictype (integer, real, or complex) or of 
logical type. It must be array valued and of rank one or 
two. 

matrix_b must be of numerictype if matrix_a is of numerictype 
and of logical type if matrix_a is of logical type. It 
must be array valued and of rank one or two. 

If matrix_a has rank one, matrix_b must have rank 
two. If matrix_b has rank one, matrix_a must have 
rank two. Thesizeof thefirst (or only) dimension of 
matrix_b must equal the size of the last (or only) 
dimension of matrix_a. 

If the arguments are of numerictype, the type and kind type parameter 
of the result are determined by the types of matrix_a and matrix_b. 

If the arguments are of type logical, the result is of type logical with the 
kind type parameter of the arguments. 

The shape of the result depends on the shapes of the arguments as 


follows: 


Case 1 

If matrix_a has shape[n, m] and matrix_b has shape 
[m, k], the result has shape [n, k]. 

Case 2 

If matrix_a has shape [m] and matrix_b has shape 
[m, k], the result has shape [k]. 

Case 3 

If matrix_a has shape[n, m] and matrix_b has shape 
[m], the result has shape [n]. 

Case 1 

Element (i, j) of theresult has the value 

SUM (MATRIX_A (i , : ) * MATRIX_B ( : , j)) if the 

arguments are of numeric type and has the value 

ANY (MATRIX_A (i , :) .AND. MATRIX_B ( : , j) ) if 

the arguments are of logical type. 
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Optional arguments 

Description 

Class 

Arguments 

Result type/ 
type parameters 

Result value 

Specific forms 


Case 2 Element (j) of the result has the value 

SUM (MATRIX_A ( : ) * MATRIX_B ( : , j)) if the 

arguments are of numeric type and has the value 

ANY(MATRIX_A(:) .AND. MATRIX_B(: , j)) if the 

arguments are of logical type. 

Case 3 Element (i) of the result has the value 

SUM (MATRIX_A (i , :) * MATRIX_B ( : ) ) if the 

arguments are of numeric type and has the value 

ANY (MATRIX_A (i , :) .AND. MATRIX_B ( : ) ) if the 

arguments are of logical type. 

MAX(A1, A2, A3,...) 

A3, ... 

Maximum value. 

E lemental function. 

The arguments must all have the same type which must be integer or 
real, and they must all have the same kind type parameter. 

Same as the arguments. 


The value of the result is that of the largest argument. 

AIMAXO, AJMAXO, AKMAXO, AMAXO, AMAX1, DMAX1, IMAXO, IMAX1, JMAXO, 
JMAX1, KMAXO, KMAX1, MAXO, MAXI, QMAX1. 
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Class 

Argument 

Result type, 
type parameters, 
and shape 

Result value 

Specific forms 

Optional argument 
Description 

Class 

Arguments 

Result type, 
type parameters, 
and shape 

Result value 


M AXE XPON E NT (X) 

Returns the maximum exponent in the model representing numbers of 
the same type and kind type parameter as the argument. 

I nquiry function. 

x must be of type real. It may be scalar or array valued. 

Default integer scalar. 


The result has the value e^ ax , as defined in 'The Real Number System 
M odel" on page 482. 

KMAXLOC. 

MAXLOC(ARRAY, MASK) 

MASK 

Returns the location of thefirst element of array having the maximum 
value of the elements identified by mask. 

Transformational function. 

array must be of type i nteger or real. 11 must not be seal ar. 

mask (optional) must be of type logical and must be conformable with 

ARRAY. 

The result is of type default integer; it is an array of rank one and of size 
equal to the rank of array. 


Case 1 If mask is absent, the result is a rank-one array whose 

element values are the values of the subscripts of an 
element of array whose value equals the maximum 
value of all of the elements of array. 

The ith subscript returned lies in the range 1 to q, 
where q is the extent of the ith dimension of array. 
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If morethan oneelement has the maximum value, the 
element whose subscripts are returned isthe first such 
element, taken in array element order. If array has 
size zero, the value of the result is processor- 
dependent. 

Case 2 If mask is present, the result is a rank-one array whose 

element values are the values of the subscripts of an 
element of array, corresponding to a . true . element 
of mask, whose value equals the maximum value of all 
such elements of array. 

The ith subscript returned lies in the range 1 to q, 
where q is the extent of the ith dimension of array. 

If morethan onesuch element has the maximum 
value, the element whose subscripts arereturned isthe 
first such element taken in array element order. 

If there are no such elements (that is, if array has size 
zero or every element of mask has the value . false .), 
the value of the result is processor-dependent. 

I n both cases, an element of the result is undefined if the processor 
cannot represent the value as a default integer. 

MAXVAL(ARRAY, DIM, MASK) 

Optional arguments dim, mask 

Description M aximum value of the elements of array along dimension dim that 

correspond to the . true . elements of mask. 

Class Transformational function. 

Arguments array must be of type integer or real. It must not be scalar. 

dim (optional) must be scalar and of type integer with a value in the 
range 1 <=dim <=n where n is the rank of array. The 
corresponding actual argument must not bean optional 
dummy argument. 

mask (optional) must be of type logical and must be conformable with 

ARRAY. 
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Result type, 
type parameters, 
and shape 

Result value 


Description 

Class 

Result type 
Result value 


The result is of the same type and kind type parameter as array. 

It is scalar if dim is absent or array has rank one; otherwise, the result 
is an array of rank n-1 and of shape (d 1( d 2 ,d Di M-i* d DiM+1 , ■■■< d n ) 
where (d x , d 2 ,d n ) is the shape of array. 

Case 1 The result of maxval (array) has a value equal to the 

maximum valueof all the elements of array or has the 
value of the negative number of the largest magnitude 
supported by the processor for numbers of the type and 
kind type parameter of array if array has size zero. 

Case 2 The result of maxval (array, mask = mask) has a 

value equal to the maximum valueof the elements of 
array corresponding to . true . elements of mask or 
has the valueof the negative number of the largest 
magnitude supported by the processor for numbers of 
the same type and ki nd type parameter as array if 
there are no .true, elements. 

Case 3 If array has rank one, maxval (array, dim 

[ , mask] ) has a value equal to that of maxval (array 
[, mask = mask] ). Otherwise, the value of element 

(Si, S 2 , ..., S D | M _!, S D | M+1 .S n ) Of MAXVAL (ARRAY, 

dim [ , mask] ) is equal to the following: 

MAXVAL (ARRAY (S x , S 2 , ..., S Dm _ lr :, S D , M+1 , 

..., S n ) [, MASK = MASK (Si, S 2 , ..., S D | M4 , 

: / S DIM +1' • • • / s n> 1 ) 


MCLOCKO 

Return time accounting for a program. 

I nquiry nonstandard function. 

I nteger. 

The value returned, in units of microseconds, is the sum of the current 
process’s user time and the user and system time of all its child 
processes. 
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Result value 

Optional arguments 

Description 

Class 

Arguments 

Result type/ 
type parameters 

Result value 

Specific forms 


MERGE(TSOURCE, FSOURCE, MASK) 

Choose alternative value according to the value of a mask. 

E lemental function. 

tsource may be of any type. 

fsource must be of the same type and type parameters as 

TSOURCE. 

mask must be of type logical. 

Same as tsource. 


The result is tsource if mask is . true . and fsource otherwise. 

Ml N(A1, A2, A3,...) 

A3, ... 

M inimum value. 

E lemental function. 

The arguments must all be of the same type, which must be integer or 
real, and they must all have the same kind type parameter. 

Same as the arguments. 


The value of the result is that of the smallest argument. 

AIMINO, AJMINO, AKMINO, AMINO, AMIN1, DMIN1, IMINO, IMIN1, 
JMINO, JMIN1, KMINO, KMIN1, MINO, MINI, QMIN1. 
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Class 
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Result type, 
type parameters, 
and shape 

Result value 

Optional argument 
Description 

Class 

Arguments 

Result type, 
type parameters, 
and shape 

Result value 


MINEXPONENT(X) 

Returns the minimum exponent in the model representing numbers of 
the same type and kind type parameter as the argument. 

I nquiry function. 

x must be of type real. It may be scalar or array valued. 

Default integer scalar. 


The result has the value q^, as defined in ‘The Real Number System 
M odel" on page 482. 

MlNLOC(ARRAY, MASK) 

MASK 

Returns the location of thefirst element of array having the minimum 
value of the elements identified by mask. 

Transformational function. 

array must be of type i nteger or real. 11 must not be seal ar. 

mask (optional) must be of type logical and must be conformable with 

ARRAY. 

The result is of type default integer; it is an array of rank one and of size 
equal to the rank of array. 


Case 1 If mask is absent, the result is a rank-one array whose 

element values are the values of the subscripts of an 
element of array whose value equals the minimum 
value of all the elements of array. 

The ith subscript returned lies in the range 1 to q, 
where q is the extent of the ith dimension of array. 
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If morethan oneelement has the minimum value, the 
element whose subscripts are returned isthe first such 
element, taken in array element order. If array has 
size zero, the value of the result is processor- 
dependent. 

Case 2 If mask is present, the result is a rank-one array whose 

element values are the values of the subscripts of an 
element of array, corresponding to a . true . element 
of mask, whose value equals the minimum value of all 
such elements of array. 

The ith subscript returned lies in the range 1 to q, 
where ej isthe extent of theith dimension of array. If 
morethan one such element has the minimum value, 
the element whose subscripts are returned is the first 
such element taken in array element order. 

I f array has size zero or every element of mask has the 
value . false ., the value of the result is processor- 
dependent. 

I n both cases, an element of the result is undefined if the processor 

cannot represent the value as a default integer. 

KMINLOC. 
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MlNVAL(ARRAY, DIM, MASK) 

Optional argument dim, mask 

Description M inimum valueof all the elements of array along dimension dim 

corresponding to .true, elements of mask. 

Class Transformational function. 

Arguments array must be of type integer or real. It must not be scalar. 

dim (optional) must be scalar and of type integer with a value in the 
range 1 <=dim <=n, where n is the rank of array. The 
corresponding actual argument must not bean optional 
dummy argument. 

mask (optional) must be of type logical and must be conformable with 

ARRAY. 

The result is of the same type and kind type parameter as array. It is 
scalar if dim is absent or array has rank one; otherwise, the result is an 
array of rank n-1 and of shape (d 1( d 2 ,..., d D | M . 1( d D!M+1 ,..., d n ) where 
(d x , d 2 ,..., d n ) is the shape of array. 

Resultvalue Case 1 The result of minval (array) has a value equal to the 

minimum valueof all the elements of array or has the 
value of the positive number of the largest magnitude 
supported by the processor for numbers of the type and 
kind type parameter of array if array has size zero. 

Case 2 The result of minval (array, mask = mask) has a 

value equal to the minimum valueof the elements of 
array corresponding to . true . elements of mask or 
has the valueof the positive number of the largest 
magnitude supported by the processor for numbers of 
the same type and ki nd type parameter as array if 
there are no .true, elements. 

Case3 If array has rank one, minval (array, dim 

[ , mask] ) has a value equal to that of minval (array 
[ , mask = mask] ). Otherwise, the value of element 

(Si, s 2 , ..., S D | M _i, S D | M+1 , ..., s n ) of MINVAL (ARRAY, 

dim [ , mask] ) is equal to the following: 


Result type, 
type parameters, 
and shape 
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MINVAL (ARRAY (S lf S 2 , Sdhv,^, S Dm+1 , 

S n ) [, MASK= MASK (Si, S 2 , S D | M _ lf 

S DIM +1' • • • ' s n> ] > 


MOD(A, P) 

Remainder function. 

E lemental function. 

a must be of type i nteger or real. 

p must be of the same type and ki nd type parameter as a. 

Same as a. 


If p is not 0, the value of the result is a - int(a/p) * p.lfp=0, the 
result is processor-dependent. 

AMOD, BMOD, DMOD, HMOD, IMOD, JMOD, KMOD, QMOD. 

MODULO(A, P) 

Modulo function. 

E lemental function. 

a must be of type i nteger or real. 

p must be of the same type and ki nd type parameter as a. 

Same as a. 


Case 1 a is of type integer. If p is not 0, modulo (a, p) has the 

value r such that a = q * p + r, where q is an 
integer, the inequalities 0 <=r<p hold if p>0, and p<r 
<=0 hold if p<0. If p=0, the result is processor- 
dependent. 
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Description 

Class 

Arguments 


Specific forms 


Case 2 a is of type real. If p is not 0, the value of the result is a 

-floor (a / p) * p. If p=0, the result is processor- 
dependent. 

MVBITS(FROM f FROMPOS, LEN, TO, TOPOS) 

Copies a sequence of bits from one data object to another. 

Elemental subroutine. 

from must be of type integer. It is an intent (in) 

argument. 

frompos must be of type integer and nonnegative. It is an 

intent (in) argument, frompos +len must be less 
than or equal to bit_size (from) . The model for the 
interpretation of an integer value as a sequence of bits 
is described in 'The Bit Model" on page481. 

len must be of type integer and nonnegative. It is an 

intent (in) argument. 

to must be a variable of type integer with the same kind 

type parameter value as from and may be the same 
variable as from. It is an intent ( inout) argument. 

to is set by copying the sequence of bits of length len, 
starting at position frompos of from to position topos 
of to. No other bits of to are altered. On return, the 
len bits of to starting at topos areequal to the value 
that the len bits of from starting at frompos had on 
entry. 

The model for the interpretation of an integer value as 
a sequence of bits is described in 'The Bit Model” on 
page 481. 

topos must be of type integer and nonnegative. It is an 

intent (in) argument, topos +len must be less 
than or equal to bit_size (to) . 

BMVBITS, HMVBITS. 
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Description 

Class 
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Result type/ 
type parameters 

Result value 


Optional argument 

Description 

Class 

Arguments 

Result type/ 
type parameters 

Result value 

Specific forms 


NEAREST(X, S) 

Returns the nearest different machine representable number in a given 
direction. 

E lemental function. 

x must be of type real. 

s must be of type real and not equal to zero. 

Same as x. 


The result has a value equal to the machine representable number 
distinct from x and nearest to it in the direction of the infinity with the 
same sign as s. 

NINT(A, KIND) 

KIND 

Nearest integer. 

E lemental function. 
a must be of type real. 

kind (optional) must be a scalar integer initialization expression. 

I nteger. If kind is present, the kind type parameter is that specified by 
kind; otherwise, the kind type parameter is that of default integer type. 

If a>0, nint (A) has the value int (A+o . 5) ; if a <=0, nint (A) has the 
value int (a-o . 5) . The result is undefined if the processor cannot 
represent the result in the specified integer type. 

IDNINT, IIDNNT, IIQNNT, ININT, IQNINT, JIDNNT, JIQNNT, JNINT, 
KIDNNT, KIQNNT, KNINT. 
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NOT(I) 

Performs a bitwise logical complement. 

E lemental function, 
i must be of type integer. 

Same as i. 


The result has the value obtained by complementing i bit-by-bit 
according to the following truth table: 

Truth table for NOT intrinsic 


I 

NOT(I) 

1 

0 

0 

1 


The model for the interpretation of an integer value as a sequence of bits 
is described in 'The Bit Model" on page481. 

BNOT, HNOT, INOT, JNOT, KNOT. 

OR(l,J ) 

Bitwise logical OR. 

Elemental nonstandard function, 
i must be of type i nteger. 

j must be of type integer with the same kind type 

parameter as i. 


Same as i. 


Chapter 11 


557 




Result value 

Table 61 


Optional argument 

Description 

Class 

Arguments 


Result type, 
type parameters, 
and shape 
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The result has the value obtained by performing an OR on i and j bit- 
by-bit according to the following truth table: 

Truth table for OR intrinsic 


I 

J 

OR (I, J) 

1 

1 

1 

1 

0 

1 

0 

1 

1 

0 

0 

0 


The model for interpreting an integer value as a sequence of bits is 
described in 'TheBit Model"on page481. 

PACK(ARRAY f MASK, VECTOR) 

VECTOR 

Pack an array into an array of rank one under the control of a mask. 
Transformational function. 

array may be of any type. 11 must not be seal ar. 

mask must be of type logical and must be conformable with 

ARRAY. 

VECTOR 

(optional) must be of the same type and type parameters as 

array and must have rank one. vector must have at 
least as many elements as there are . true . elements 
in mask. If mask is scalar with the value .true., 
vector must have at least as many elements as there 
are in array. 

The result is an array of rank one with the same type and type 
parameters as array. If vector is present, the result size is that of 
vector; otherwise, the result size is the number t of . true . elements in 
mask unless mask is scalar with the value .true., in which case the 
result size is the size of array. 
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Result value 

Specific forms 

Description 

Class 

Argument 

Result type, 
type parameters, 
and shape 

Result value 


Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 


E lement i of the result is the element of array that corresponds to the 
ith . true . element of mask, taking elements in array element order, for 
i = 1, 2,..., t. If vector is present and has size n>t, element i of the result 
has the value vector (i), for i = t+l, ..., n. 

KPACK. 

PRECI SION(X) 

Returns the decimal precision in the model representing real numbers 
with the same kind type parameter as the argument. 

I nquiry function. 

x must be of type real or complex. It may be scalar or array valued. 
Default integer scalar. 


The result has the value int ((p-i) * logio (b)) +k. The values of b 
and p are as defined in 'The Real Number System Model" on page482 
for the model representing real numbers with the same kind type 
parameter as x. The value of k is 1 if b is an integral power of 10 and 0 
otherwise. 

PRESENT(A) 

Determine whether an optional argument is present. 

I nquiry function. 

a must be the name of an optional dummy argument that is accessible in 
the procedure in which the present function reference appears. 

Default logical scalar. 


The result has the value . true . if a is present and otherwise has the 
value . false . 
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PRODUCT(ARRAY f DIM, MASK) 

Optional arguments dim, mask 

Description Product of all the elements of array along dimension dim corresponding 

tothe .true, elements of mask. 

Class Transformational function. 

Arguments array must be of type i nteger, real, or complex. 11 must not be 

scalar. 

dim (optional) must be scalar and of type integer with a value in the 
range 1 <=dim <=n, where n is the rank of array. 
The corresponding actual argument must not bean 
optional dummy argument. 

mask (optional) must be of type logical and must be conformable with 

ARRAY. 

The result is of the same type and kind type parameter as array. It is 
scalar if dim is absent or array has rank one; otherwise, the result is an 
array of rank n-1 and of shape (d 1( d 2 , ..., d D | M . 1( d D! M +1 ,..., d n ) where 
(d 1( d 2 ,..., d n ) is the shape of array. 

Resultvalue Casel The result of product (array) has a value equal to a 

processor-dependent approximation tothe product of 
all the elements of array or has the value one if array 
has size zero. 

Case 2 The result of product (array, mask = msk) has a 

value equal to a processor-dependent approximation to 
the product of the elements of array corresponding to 
the . true . elements of msk or has the value one if 
there are no .true, elements. 

Case3 If array has rank one, product (array, dim 

[ ,msk] ) has a value equal to that of product (array 
[ ,mask = msk] ). Otherwise, thevalueof element (s 1( 

S 2 .S D |m_i, S D | M+ i.S n ) Of PRODUCT (ARRAY, DIM 

[ , msk] ) is equal to the foil owing: 


Result type, 
type parameters, 
and shape 
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Result 

Specific forms 

Description 

Class 

Argument 

Result 

Specific forms 

Description 

Class 

Argument 

Result 


PRODUCT (ARRAY (S lf S 2 , S D , M _ x , S D , M+1 , 

. . . , S n ) & 

[ r MASK = msk (S^, S 2 , Sq| m- l' 

S DIM +1' • • • / s n) ] ) 

QEXT(A) 

Convert to real ( i 6 ) type. 

Elemental nonstandard function. 

a must be of type integer, real, double precision, or complex. 

REAL(16). 

QEXTD. 

QFLOAT(A) 

Convert to real ( i 6) type. 

Elemental nonstandard function. 
a must be of type i nteger or real (4). 

REAL(16). 

QFLOATI, QFLOTI, QFLOTJ, QFLOTK. 

QNUM(I) 

Convert character to real ( i 6 ) type. 

Elemental nonstandard function, 
i must be of type character. 

REAL (16) type. 
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Description 


Class 
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Result type, 
type parameters, 
and shape 

Result value 


Description 

Class 

Argument 


Result type/ 
type parameters 


QPROD(X, Y) 

Double precision product. 

Elemental nonstandard function, 
x and y must be of type double precision. 

REAL (16) type. 

RADIX(X) 

Returns the base of the model representing numbers of the same type 
and kind type parameter as the argument. 

I nquiry function. 

x must be of type i nteger or real. It may be scalar or array valued. 
Default integer scalar. 


The result has the value r if x is of type integer and the value b if x is of 
type real, where r and b are as defi ned i n 'The Real N umber System 
Model”on page482. 

RAN(ISEED) 

M ultiplicative congruent random number generator. 

Elemental nonstandard function. 

iseed must be an integer (4) variable or array element, ran stores a 
number in iseed to be used by the next call to ran. 

iseed should initially beset toan odd number, preferably very large; see 
the foil owing example. 

REAL ( 4 ) type. 
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NOTE 


Description 

Class 

Result type/ 
type parameters 

NOTE 

Description 

Class 

Argument 

Optional arguments 
Description 

Class 

Arguments 


To ensure different random values for each run of a program, ISEED should 
be set to a different value each time the program is run. One way to 
implement this would be to have the user enter the seed at the start of the 
program. Another way would be to compute a value from the current year, 
day, and month (returned by IDATE) and the number of seconds since 
midnight (returned by SECNDS). 

RAND() 

Generate successive pseudorandom numbers uniformly distributed in 
the range of 0.0 to 1.0. 

Elemental nonstandard function. 

REAL ( 4 ) type. 

For details about restarting the pseudorandom number generator used by 
irand and rand, see “SRAND(ISEED)” on page 577 section. 

RANDOMJSIUMBER(HARVEST) 

Returns one pseudorandom number or an array of pseudorandom 
numbers from the uniform distribution over the range 0 <=x <1. 

Subroutine. 

harvest must be of ty pe rea I. It is an intent (out) argument. It may 
be a scalar or an array variable. It is set to contain pseudorandom 
numbers from the uniform distribution in the interval 0<=x<l. 

RANDOM SEED(SIZE, PUT, GET) 

SIZE, PUT, GET 

Restarts or queries the pseudorandom number generator used by 

RANDOM_NUMBER. 

Subroutine. 

There must either be exactly one or no arguments present. 
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size (optional) must be scalar and of type default integer. It is an 

intent (out) argument. It is set to the number N of 
i ntegers that the processor uses to hold the val ue of the 
seed. 


put (optional) must be a default integer array of rank one and size >= 
N. It is an intent ( in) argument. It is used by the 
processor to set the seed value. 


get (optional) must be a default integer array of rank one and size >= 
N. It is an intent (out) argument. It is set by the 
processor to the current val ue of the seed. I f no 
argument is present, the processor sets the seed to a 
processor-dependent value. 


RANGE (X) 

Returns the decimal exponent range in the model representing integer or 
real numbers with the same kind type parameter as the argument. 

I nquiry function. 

x must be of type i nteger, real, or complex. It may be scalar or array 
valued. 

Default integer scalar. 


Case 1 For an integer argument, the result has the value 

int (logio (huge) ), where hugeis the largest positive 
integer in the model representing integer numbers 
with same kind type parameter as x. See 'The I nteger 
Number System Model" on page 482 for more 
information. 

Case 2 For a real or complex argument, the result has the 

value int (min (logio (huge), -logio (tiny) )), 
where hugeand tiny are the largest and smallest 
positive numbers in the model representing real 
numbers with the same value for the kind type 
parameter as x. See'The Real Number System Model" 
on page 482 for more i nformation. 
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Example 

Specific forms 

Optional argument 

Description 

Class 

Arguments 

Result type/ 
type parameters 


Result value 

Specific forms 


range (x) has the value 38 for real x, whose model is described in'The 
Real Number System Model”on page482, because in this case huge=(l - 
2 24 ) * 2 127 and ti ny = 2" 127 , 

SNGL, SNGLQ. 

REAL (A, KIND) 

KIND 

Convert to real type. 

E lemental function. 

a must be of type i nteger, real, or com pi ex. 

kind (optional) must be a scalar integer initialization expression. 

Real. 

Case 1 If a is of type integer or real and kind is present, the 

kind type parameter is that specified by kind. 

If a is of type integer or real and kind is not present, 
the kind type parameter is the processor-dependent 
kind type parameter for the default real type. 

Case 2 If a is of type complex and kind is present, the kind 

type parameter is that specified by kind. 

If a is of type complex and kind is not present, the kind 
type parameter is the kind type parameter of a. 

Case 1 If a is of type integer or real, the result is equal to a 

processor-dependent approximation to a. 

Case 2 If a is of type complex, the result is equal to a 

processor-dependent approximation to the real part of 

A. 

FLOAT, FLOATI, FLOATJ, FLOATK. 
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REPEAT(STRING, NCOPIES) 

Concatenate several copies of a string. 

Transformational function. 

string must be scalar and of type character. 

ncopies must be scalar and of type integer. Its value must not 

be negative. 

Character scalar of length ncopies times that of string, with the same 
kind type parameter as string. 


The value of the result is the concatenation of ncopies copies of string. 

KREPEAT. 

RE SHAPE (SOURCE, SHAPE, PAD, ORDER) 

PAD, ORDER 

Constructs an array of a specified shape from the elements of a given 

array. 

Transformational function. 

source may be of any type. It must be array valued. If pad is 

absent or of size zero, the size of source must be 
greater than or equal to product (shape) . The size of 
the result is the product of the values of the elements of 

SHAPE. 

shape must be of type integer, rank one, and constant size. Its 

size must be positive and less than 8. It must not have 
an element whose value is negative. 

pad (optional) must be of the same type and type parameters as 
source, pad must be array valued. 
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Result 


Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 


order (optional) must be of type integer, must have the same shape as 
shape, and its value must be a permutation of [1, 2,..., 
n], where n is the size of shape. If absent, it is as if it 
were present with value [1, 2,..., n]. 

The result is an array of shape shape (that is, 

SHAPE(RESHAPE(SOURCE, SHAPE, PAD, ORDER) ) is equal to SHAPE) 

with the same type and type parameters as source. 

The elements of the result, taken in permuted subscript order 
order (l),..., order (n), are those of source in normal array element 
order followed if necessary by those of pad in array element order, 
followed if necessary by additional copies of pad in array element order. 

KRESHAPE. 

RNUM(I) 

Convert character to real type. 

Elemental nonstandard function, 
i must be of type character. 

Default real type. 

RRSPACI NG(X) 

Returns the reciprocal of the relative spacing of model numbers near the 
argument value. 

E lemental function. 

x must be of type real. 

Same as x. 


The result hasthevalue| x* b" e | * b p , where b, e, and p areas defined in 
'The Real Number System Model"on page482. 
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Class 

Description 

Class 

Description 

Class 
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Result type/ 
type parameters 

Result value 


Optional argument 

Description 

Class 

Arguments 


RSHFT(I, SHIFT) 

Bitwise right shift. 

Elemental nonstandard function. 

RSHIFT(I, SHIFT) 

Bitwise right shift. 

Elemental nonstandard function. 

SCALE(X, I) 

Returns x * b 1 where b is the base in the model representation of x. See 
"TheReal Number System Model" on page 482 for a description of this. 

E lemental function. 

x must be of type real. 

i must be of type i nteger. 

Same as x. 

The result has the value x * b 1 , where b is defined in 'The Real Number 
System Model”on page482, provided this result is within range; if not, 
the result is processor dependent. 

SCAN(STRING, SET, BACK) 

BACK 

Scan a stri ng for any one of the characters i n a set of characters. 

E lemental function. 

string must be of type character. 
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Result value 
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Class 
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Result type/ 
type parameters 

NOTE 


set must be of type character with the same kind type 

parameter as string. 

back (optional) must be of type logical. 

Default integer. 


Case 1 


Case 2 


Case 3 


If back is absent or is present with the value . false . 
and if string contains at least one character that is in 
set, the value of the result is the position of the 
leftmost character of string that is in set. 

If back is present with the value . true . and if 
string contains at least one character that is in set, 
the value of the result is the position of the rightmost 
character of string that is in set. 

The value of the result is zero if no character of string 
is in set or if the length of string or set is zero. 


SECNDS(X) 

Return the number of seconds that have elapsed since midnight, less the 
value of the argument. 

Elemental nonstandard function. 

x must be of type real (4). 

REAL ( 4). 


secnds is accurate to one one-hundredth of a second (0.01 second). The 
secnds routine is useful for computing elapsed time for a code’s execution. 
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SELECTED! NTKIND(R) 

Description 

Returns a value of the kind type parameter of an integer data type that 
represents all integer values n with -10 R <n <10 R . 

Class 

Transformational function. 

Argument 

r must be scalar and of type i nteger. 

Result type, 
type parameters, 
and shape 

Default integer scalar. 

Result value 

The result has a valueequal to the value of the kind type parameter of 
an i nteger data type that represents al 1 val ues n i n the range of val ues n 
with -10 R <n <10 R , or if no such kind type parameter is availableon the 
processor, the result is -1. 

If more than one kind type parameter meets the criteria, the value 
returned is the one with the smallest decimal exponent range, unless 
there are several such values, in which case the smallest of these kind 
values is returned. 

SELECTED_REAL_KIND(P, R) 

Optional arguments 

P, R 

Description 

Returns a value of the kind type parameter of a real data type with 
decimal precision of at least p digits and a decimal exponent range of at 
least r. 

Class 

Transformational function. 

Arguments 

At least one argument must be present. 

p (optional) must be scalar and of type integer. 

r (optional) must be scalar and of type integer. 

Result type, 
type parameters, 
and shape 

Default integer scalar. 
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Result value 


Description 

Class 

Arguments 

Result type/ 
type parameters 

Result value 


The result has a value equal to a value of the kind type parameter of a 
real data type with decimal precision, as returned by the function 
precision, of at least p digits and a decimal exponent range, as 
returned by the function range, of at least r. 

If no such kind type parameter is available on the processor, the result is 
-1 if the precision is not available, -2 if theexponent range is not 
available, and -3 if neither is available. 

If more than one kind type parameter value meets the criteria, the value 
returned istheonewith the smallest decimal precision, unless there are 
several such values, in which case the smallest of these kind values is 
returned. 

SET_EXPONENT(X, I) 

Returns the model number whose exponent is I and whose fractional 
part is the fractional part of X. 

E lemental function. 

x must be of type real. 

i must be of type i nteger. 

Same as x. 


The result has the value x * b le , where b and eare as defined in 'The 
Real Number System Model"on page482, provided this result is within 
range; if not, the result is processor-dependent. 

If x has value zero, the result has value zero. 


Chapter 11 


571 



Description 

Class 

Argument 


Result type, 
type parameters, 
and shape 

Result value 

Specific forms 


Description 

Class 

Arguments 

Result type/ 
type parameters 

Result value 

Specific forms 
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SHAPE (SOURCE) 

Returns the shape of an array or a scalar. 

I nquiry function. 

source may be of any type. It may be array valued or scalar. It must not 
be a pointer that is disassociated or an allocatable array that is not 
allocated. It must not bean assumed-size array. 

The result is a default integer array of rank one whose size is equal to 
the rank of source. 

The value of the result is the shape of source. 

KSHAPE. 

SIGN (A, B) 

Absolute value of a times the sign of b. 

E lemental function. 

a must be of type i nteger or real. 

b must be of the same type and ki nd type parameter as a. 

Same as a. 

Thevalueof theresult is | a| if b>=0 and-| a| ifB<0. 

BSIGN, DSIGN, HSIGN, IISIGN, JSIGN, QSIGN, KISIGN. 
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Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 


Specific forms 


Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 

Specific forms 


SIN(X) 

Sinefunction in radians. 

E lemental function, 
x must be of type real or complex. 

Same as x. 

The result has a value equal to a processor-dependent approximation to 
sin(X). 

• If x is of type real, it is regarded as a value in radians. 

• If x is of type complex, its real part is regarded as a value in radians. 

CDSIN, CSIN, DSIN, QSIN, ZSIN. 

SIND(X) 

Sinefunction in degrees. 

Elemental nonstandard function, 
x must be of type real. 

Same as x. 

The result has a value equal to a processor-dependent approximation to 
sin(X). 

QSIND. 
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SINH(X) 

Description 

H yperbol ic si ne function. 

Class 

E lemental function. 

Argument 

x must be of type real. 

Result type/ 
type parameters 

Same as x. 

Result value 

The result has a value equal to a processor-dependent approximation to 
sinh(X). 

Specific forms 

QSINH. 


SIZE (ARRAY, DIM) 

Optional argument 

DIM 

Description 

Returns the extent of an array along a specified dimension or the total 
number of elements in the array. 

Class 

1 nquiry function. 

Arguments 

array may be of any type. 11 must not be scalar. 11 must not 

be a pointer that is disassociated or an allocatable 
array that is not allocated. If array is an assumed-size 
array, dim must be present with a value less than the 
rank of array. 


dim (optional) must be scalar and of type integer with a value in the 
range 1 <=dim <=n, where n is the rank of array. 

Result type, 
type parameters, 
and shape 

Default integer scalar. 

Result value 

The result has a value equal to the extent of dimension dim of array or, 
if dim is absent, the total number of elements of array. 

Specific forms 

KSIZE. 
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Description 

Class 

Argument 

Result type 


Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 


Description 

Class 

Arguments 


SIZE OF (A) 

Return the number of bytes of storage used by the argument. 

I nquiry nonstandard function. 

A may be of any type (except assumed-size arrays or passed-length 
character arguments). 

I nteger. 

SPACING(X) 

Returns the absolute spacing of model numbers near the argument 
value. 

E lemental function, 
x must be of type real. 

Same as x. 


If x is not zero, the result has the value h* 5 " 13 , where b, e, and p are as 
defined in 'The Real Number System Model” on page482, provided this 
result is within range; otherwise, the result is the same as that of 

TINY(X). 

SPREAD (SOURCE, DIM, NCOPIES) 

Replicates an array by adding a dimension. Broadcasts several copies of 
source along a specified dimension (as in forming a book from copies of 
a single page) and thus forms an array of rank one greater. 

Transformational function. 

source may be of any type. It may be scalar or array valued. 

The rank of source must be less than 7. 
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and shape 


Result value 


Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 

Specific forms 
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dim must be scalar and of type integer with value in the 

range 1 <=dim <=n +1, where n is the rank of 

SOURCE. 

ncopies must be scalar and of type integer. 

The result is an array of the same type and type parameters as source 
and of rank n +1, where n is the rank of source. 

Case 1 If source is scalar, the shape of the result is 

(MAX (NCOPIES, 0)). 

Case 2 If source is array valued with shape (d 1( d 2 ,..., d n ), 

the shape of the result is (d 1: d 2 ,..., d D! M _i, 

MAX (NCOPIES, 0) , d D | M , ..., d n ). 

Case 1 If source is scalar, each element of the result has a 

value equal to source. 

Case 2 If source is array valued, the element of the result 

with subscripts (r x , r 2 ,..., r n+1 ) has the value 
source^, r 2 ,..., r D nv|_i, r D nvi +1 ,..., r n+1 ). 


SQRT(X) 

Square root. 

E lemental function. 

x must be of type real or complex. If x is real, its value must be greater 
than or equal to zero. 

Same as x. 


The result has a value equal to a processor-dependent approximation to 
the square root of x. 

A result of type complex is the principal value with the real part greater 
than or equal to zero. When the real part of the result is zero, the 
imaginary part is greater than or equal to zero. 

CDSQRT, CSQRT, DSQRT, QSQRT, ZSQRT. 


576 


Chapter 11 



Intrinsic procedures 

Intrinsic procedure specifications 

SRAND(ISEED) 

Description Restart the pseudorandom number generator used by irand and rand. 

Class Elemental nonstandard subroutine. 

Argument iseed must be of integer (4) type. 

The same value for iseed generates the same sequence of random 
numbers. To vary the sequence, call srand with a different iseed value 
each time the program is executed. The default for iseed is 1. 

SUM (ARRAY, DIM, MASK) 

Optional arguments dim, mask 

Description Sum all the elements of array along dimension dim corresponding to the 

. true . elements of mask. 

Class Transformational function. 

Arguments array must be of type i nteger, real, or complex. 11 must not be 

scalar. 

dim (optional) must be scalar and of type integer with a value in the 
range 1 <=dim <=n, where n is the rank of array. The 
corresponding actual argument must not bean optional 
dummy argument. 

mask (optional) must be of type logical and must be conformable with 

ARRAY. 

The result is of the same type and kind type parameter as array. It is 
scalar if dim is absent of array has rank one; otherwise, the result is an 
array of rank n-1 and of shape (d 1( d 2 , ..., d D | M . 1( d D | M+1 ,..., d n ) where 
(d 1( d 2 ,..., d n ) is the shape of array. 

Resultvalue Casel The result of sum (array) has a value equal to a 

processor-dependent approximation to the sum of all 
the elements of array or has the value zero if array 
has size zero. 


Result type, 
type parameters, 
and shape 
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Case 2 The result of sum (array, mask = msk) has a value 

equal to a processor-dependent approximation to the 
sum of the elements of array corresponding to the 
. true . elements of msk or has the value zero if there 
are no .true, elements. 

Case3 If array has rank one, sum (array, dim [,msk]) 

has a value equal to that of sum (array [,mask = 

msk]) . Otherwise, the value of element (s 1( s 2 .s D | M _ 

1- S DIM+1< s n) °f SUM (ARRAY, DIM [, msk ]) is equal 
to the foil owing: 

SUM (ARRAY (Si, S 2 , ..., Sq| |V] -1, S DIM+1' ■ • • r 

s n ) & 

[, MASK=msk (S]_, S 2 , ..., Sqj m-1, 

S DIM +1' • • • ' s n) 1 ) 

SYSTEM(STR) 

Issue a shell command from a Fortran 90 program. 

Nonstandard subroutine. 

str must be of type character, system gives str to the default shell (/ 
bin/sh) as input, as if the string were entered at a terminal. When the 
shell has completed, the process continues. 
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Optional arguments 

Description 

Class 

Arguments 


Description 

Class 

Argument 

Result type/ 
type parameters 


SYSTEM_CLOCK(COUNT, COUNTRATE, 
COUNTJMAX) 

COUNT, COUNT_RATE, COUNT_MAX 

Returns integer data from a real-time clock. 

Subroutine. 

count (optional) must be scalar and of type default integer. It is an 
intent (out) argument. It is set to a processor- 
dependent value based on the current value of the 
processor clock or to -huge (0) if there is no clock. The 
processor-dependent value is incremented by one for 
each clock count until the value count_max is reached 
and is reset to zero at the next count. It lies in the 
range 0 to count_max if there is a clock. 

COUNT_RATE 

(optional) must be scalar and of type default integer. It is an 

intent (out) argument. It is set to the number of 
processor clock counts per second, or to zero if there is 
no clock. 

COUNT_MAX 

(optional) must be scalar and of type default integer. It is an 

intent (out) argument. It is set to the maximum 
value that count can have, or to zero if there is no 
cl ock, 

TAN(X) 

Tangent function in radians. 

E lemental function. 

x must be of type real. 

Same as x. 
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Result value 

Specific forms 


Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 

Specific forms 


Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 

Specific forms 


The result has a value equal to a processor-dependent approximation to 
tan(X), with x regarded as a value in radians. 

C TAN, D TAN, Q TAN, Z TAN. 

TAND(X) 

Tangent function in degrees. 

Elemental nonstandard function, 
x must be of type real. 

Same as x. 

The result has a value equal to a processor-dependent approximation to 
tan(X). 

DTAND, QTAND. 

TANH(X) 

Hyperbolic tangent function. 

E lemental function, 
x must be of type real. 

Same as x. 

The result has a value equal to a processor-dependent approximation to 
tanh(X). 

DTANH, QTANH. 
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Description 

Class 

Argument 

Result value 

Description 

Class 

Argument 

Result type, 
type parameters, 
and shape 

Result value 


TIME(TIMESTR) 

Return the current system time. 

Nonstandard subroutine. 

timestr must be of type character and must provide at least 8 bytes of 
storage. 

time fills timestr with an 8-byte character string of the form 
hh:mm:ss (hh is the current hour, mm the current minute, ssthe 
number of seconds past the minute). 

TINY(X) 

Returns the smallest positive number in the model representing 
numbers of the same type and kind type parameter as the argument. 

I nquiry function. 

x must be of type real. It may be scalar or array valued. 

Scalar with the same type and kind type parameter as x. 


The result has the value b e min-l 

where b and e^m are as defined in 'The Real Number System Model" on 
page 482. 
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Optional argument 
Description 

Class 

Arguments 


Result type, 
type parameters, 
and shape 


Result value 


TRANSFER (SOURCE, MOLD, SIZE) 

SIZE 

Returns a result with a physical representation identical to that of 

source but interpreted with the type and type parameters of mold. 

Transformational function. 

source may be of any type and may be scalar or array valued. 

mold may be of any type and may be scalar or array valued. 

size (optional) must be scalar and of type integer. The corresponding 
actual argument must not bean optional dummy 
argument. 

The result is of the same type and type parameters as mold. 

Case 1 If mold is a scalar and size is absent, the result is a 

scalar. 

Case2 If mold is array valued and size is absent, the result 

is array valued and of rank one. Its size is as small as 
possible such that its physical representation is not 
shorter than that of source. 

Case 3 If size is present, the result is array valued of rank 

oneand size size. 

I f the physical representation of the result has the same length as that of 

source, the physical representation of the result is that of source. 

• I f the physical representation of the result is longer than that of 
source, the physical representation of the leading part is that of 
source and the remai nder is undefined. 

• I f the physical representation of the result is shorter than that of 
source, the physical representation of the result is the leading part 
of source. If d and e are scalar variables such that the physical 
representation of d is as long as or longer than that of e, the value of 

transfer (transfer (e, d), e ) must be the val ue of E. 

• If d is an array and e is an array of rank one, the value of 

TRANSFER (TRANSFER (E, D), E, SI ZE (E ) ) ITIUSt be the Value Of E. 
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Description 

Class 

Result type, 
type parameters, 
and shape 


Result value 


Description 

Class 

Argument 

Result type/ 
type parameters 

Result value 


Optional argument 

Description 

Class 


TRANSPOSE (MATRIX) 

Transpose an array of rank two. 

Transformational function. 

matrix may be of any type and must have rank two. 

The result is an array of the same type and type parameters as matrix 
and with rank two and shape (n, m) where (m, n) is the shape of matrix. 

Element (i, j) of the result has the valueMATRix(j, i), i = l, 2,n; j = l, 2, 

m. 

TRIM(STRING) 

Returns the argument with trailing blank characters removed. 
Transformational function. 

string must be of type character and must be a scalar. 

Character with the same kind type parameter value as string and with 
a length that is the length of string less the number of trailing blanks 

in STRING. 

The value of the result is the same as string except any trailing blanks 
are removed. If string contains no nonblank characters, the result has 
zero length. 

UBOUND(ARRAY, DIM) 

DIM 

Returns all the upper bounds of an array or a specified upper bound. 

I nquiry function. 
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Result type, 
type parameters, 
and shape 

Result value 


Specific forms 

Description 

Class 

Arguments 
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array may be of any type. 11 must not be scalar. 11 must not be 

a pointer that is disassociated or an allocatable array 
that is not allocated. If array is an assumed-size array, 
dim must be present with a value less than the rank of 

ARRAY. 

dim (optional) must be scalar and of type integer with a value in the 
range 1 <=dim <=n, where n is the rank of array. The 
corresponding actual argument must not bean optional 
dummy argument. 

The result is of type default integer. It is scalar if dim is present; 

otherwise, the result is an array of rank one and size n, where n is the 

rank of array. 

Case 1 For an array section or for an array expression, other 

than a whole array or array structure component, 
ubound (array, dim) has a value equal to the 
number of elements in the given dimension; otherwise, 
it has a value equal to the upper bound for subscript 
dim of array if dimension dim of array does not have 
size zero and has the value zero if dimension dim has 
size zero. 

Case 2 ubound (array) has a value whose ith component is 

equal to ubound(array, i), for i = 1, 2, ..., n, where n is 
the rank of array. 

KUBOUND. 

UNPACK(VECTOR, MASK, FIELD) 

U npack an array of rank one into an array under the control of a mask. 

Transformational function. 

vector may be of any type. It must have rank one. Its size 

must be at least t where t is the number of . true . 
elements in mask. 

mask must be array valued and of type logical. 

field must be of the same type and type parameters as 

vector and must be conformable with mask. 
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Result type, The result is an array of the same type and type parameters as vector 

type parameters, and the same shape as mask. 

and shape 

Resultvalue The element of the result that corresponds to the ith .true, element of 

mask, in array element order, has the value vector (i) for i =1, 2,..., t, 
wheret is the number of .true, values in mask. Each other element has 
a value equal to field if field is scalar or to the corresponding element 
of field if it is an array. 

VERIFY(STRING, SET, BACK) 

Optional argument back 

Description Verify that a set of characters contains all the characters in a string by 

identifying the position of the first character in a string of characters 
that does not appear in a given set of characters. 

Class E lemental function. 

Arguments string must be of type character. 

set must be of type character with the same kind type 

parameter as string. 

back (optional) must be of type logical. 

Result type/ Default integer. 

type parameters 

Resultvalue Case 1 If back is absent or present with the value .false. 

and if string contains at least one character that is 
not in set, the value of the result is the position of the 
leftmost character of string that is not in set. 

Case 2 If back is present with the value . true . and if 

string contains at least one character that is not in 
set, the value of the result is the position of the 
rightmost character of string that is not in set. 

Case 3 The value of the result is zero if each character in 

string is in set or if string has zero length. 
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Description 

Class 

Arguments 

Result type/ 
type parameters 

Result value 


Description 

Class 

Argument 

Result 


XOR(l v j ) 

B i twi se exd usi ve or. 

Elemental nonstandard function, 
i must be of type i nteger. 

j must be of type integer with the same kind type 

parameter as i. 

Same as i. 


The result has the value obtained by performing an exclusive or on i 
and j bit-by-bit according to Table 59. 

The model for interpreting an integer value as a sequence of bits is 
described in 'TheBit Model"on page481. 

ZEXT(A) 

Zero extend. 

Elemental nonstandard function. 
a must be of type integer or logical. 

zext converts a 1-, 2-, or 4-byte logical or integer to a 2- or 4-byte integer 
by sign-extending zeroes instead of the actual sign bit. 
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NOTE 


This chapter describes the Basic Linear Algebra Subroutines (BLAS) and 
the BSD 3f (iibU77) libraries that are shipped with H P Fortran. 

The iibu77 library provides routines that have a Fortran 90 interface 
for system routines in the libc library. The iibU7 7 routines make it 
easier to call FIP-UX system-level routines from Fortran 90 programs 
because they use Fortran 90 argument-passing conventions. The iibU7 7 
routines are also compatible with other Fortran implementations that 
supply these routines by default. 

Even though system routines use different argument-passing rules from 
HP Fortran programs, you can call these routines from HP Fortran programs 
by using the %val and %ref built-in functions to change how arguments are 
passed. For more information about %val and %ref, see “%VAL and %REF 
built-in functions” on page 148. 

The Basic Linear Algebra Subroutine (BLAS) library consists of a set of 
routines that perform low-level vector and matrix operations. These 
routines have been tuned for maximum performance and are callable 
from HP Fortran programs. For information about the background and 
significance of the BLAS library, refer to the LAPACK User’s Guide, by E. 
Anderson etal (SIAM Press, 1992). 

Thefollowing sections considerations to keep in mind when writing and 
compiling a program that calls routines from the BLAS or iibU77 
library, and briefly describes the routines in the libraries. For 
information about other libraries that are shipped with 
H P Fortran, including how to create and link libraries with your 
programs—refer to the H P Fortran Programmer’s Guide 
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Calling libll77 and BLAS routines 

This section discusses considerations pertinent to writing and compiling 
programs that call iibU77 and BLAS routines, including: 

• Thecompile-lineoptionsthat makeiibU77 and BLAS routines 
available to your programs 

• Declaring the type of return type of library functions 

• Declaring library functions with the external attribute 

• BLAS and iibU77 man pages 

Compile-line options 

The following sections describe the compile-line options to use to access 
routines from the iibU77 and BLAS libraries. 

-KJ77 option 

To access iibU7 7 routines, compile with the +U7 7 option. The entry- 
point name of each iibU7 7 routine has an appended underscore, which 
must also be added to the external name of any iibU7 7 routine that your 
program calls. The +U77 option does this. For example, if your program 
contains the foil owing call: 

CALL FLUSH(unit_no) 

compiling with +U7 7 causes the compiler to generate the external name 
access.. The +ppu and +uppercase options have no effect on iibU77 
external names. 

-Ibias option 

To access BLAS routines, compile with the -lbias option. Unlike most 
compile-line options, the -l option must appear at the end of the 
command line, following any source files that call BLAS routines; see 
"General Compiler Syntax” on page 572. Hereis an example command 
line for compiling do_math.f90 to access BLAS routines: 

$ f90 do_math.f90 -lbias 
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Year-2000 compati bi lity 

Two new IibU77 routines (datey2k and idatey2k, both described in 
this chapter) are provided in the Fortran 90 compiler to handle 
Year-2000 (Y2K) date-related issues on HP-UX 10.x and HP-UX 11.x. 
The +U77 flag must be used with both of these routines. 

Although both are provided for Y2K compliance, it is recommended that 
the standard date_and_time intrinsic be used instead of these 
functions, when possible. 

The guidelines for changing code which uses the date or idate IibU 77 
routines are as follows: 

• I n code where date is referenced, repl ace date with datey2k. Also, 
make sure that datey2k's argument is at least 11 characters in 
length. 

• I n code wherethe idate intrinsic (not the iibU77 idate routine) is 
used, replace idate with idatey2k. 

Declaring library functions 

U nlike intrinsics, library routines do not have an explicit interface 
within your program. This means (among other things) that, if the 
routine is a function, the compiler applies the implicit typing rules to the 
return value. When these rules are in effect, the return value is likely to 
be meaningless if the type implied by thefunction name does not agree 
with the type of the returned value or if the return type is not explicitly 
declared within the program unit that calls the routine. 

Consider the following program, caii_ttynam. f 90. The program 
consists of two subroutines, both of which call theiibU77 function 
ttynam. This function returns a character value—the path name of a 
terminal device associated. But the return type is declared in only one of 
the subroutines; in the other subroutine, thetypeis undeclared, and the 
compiler therefore assumes—applying the rules of implicit typing—that 
the return value is of type real. The consequences of this assumption are 
illustrated in the output, below. 
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call_ttynam.f90 

PROGRAM main 

! illustrates the consequences of failure to declare 
! the return type of a library function. Both 
! subroutines do the same thing—invoke the libU77 
! function TTYNAM. But only the second subroutine 
! declares the return type of the function. 

! This program must be compiled with the +U77 option. 

CALL without_decl 
CALL with_decl 
END PROGRAM main 

SUBROUTINE without_decl 

PRINT *, TTYNAM(6) ! implicit typing is in effect 

END SUBROUTINE without_decl 

SUBROUTINE with_decl 

! declare the return type of TTYNAM 
CHARACTER(LEN=80), EXTERNAL :: TTYNAM 

PRINT *, TTYNAM(6) 

END SUBROUTINE with_decl 

Here are the command lines to compile and execute the program, along 
with the output from a sample run: 

$ f90 +U77 call_ttynam.f90 
$ a.out 

0.0 

/dev/pts/0 


For information about explicit interface, see "Procedure interface” on 
page 151. See "I mplicit typing" on page 28 for the rules of implicit 
typing. 

Declaring library routines as EXTERNAL 

There are two cases when you should declare a library routine with the 
external attribute: 

• The routine name is passed to a procedure as an actual argument 

• The routine name is the same as an intrinsic name 

The first case applies to both iibU77 and BLAS routines. The second 
applies only to iibU77 routines; as shown in Table 62, several of the 
names of iibU7 7 routines are also those of intrinsics. U nless you declare 
these routines with the external attribute, the compiler will map the 
call to the intrinsic library. 
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Table 62 


iibU77 naming conflicts 


FLUSH 

FREE 

GETARG 

GETENV 

IARGC 

IDATE 

LOC 

MALLOC 

SYSTEM 

TIME 




For example, if a program unit makes a call toFLUSH, thecompiler will 
make a call to the intrinsic, unless the program unit includes the 
following statement: 

EXTERNAL FLUSH 

See "external (statement and attribute)" on page 328 for a description 
of the external statement and attribute. As noted in the description, 
the attribute form of external cannot be used with subroutines, which 
must therefore be specified in the statement form. 

Man pages 

You can get detailed, online information for any iibU77 or BLAS routine 
by using the man command to display an online reference page for that 
routine. The command-line syntax for theman command is: 

man section_number routine_name 

where section_number is either 3f (for iibU77) man pages or 3x (for 
BLAS); and routine_name is the name of the iibU77 or BLAS routine. 
For example, to display the man page for the iibU7 7 routine flush, 
give the command: 

$ man 3f flush 

To display the man page for the BLAS routine saxpy, give the command: 

$ man 3x saxpy 

Two of the BLAS man pages provide general information about the 
BLAS routines: blasl(3x) describes basic vector operations, and blas2(3x) 
describes basic matrix operations. 


Chapter 12 


591 




BLAS and libll77 libraries 

libU77 routines 


Table 63 


libU77 routines 

Table 63 lists the iibU77 routines by category, and Table 64 briefly 
describes each routine, including signature and argument information. 
The sizes of the data types listed in Table 64 are the default sizes, unless 
indicated otherwise. See Table 5 for the sizes of the default data types. 


Categories of iibU77 routines 


Category 

iibU77 routines 

Date and time 

CTIME, DATEY2K,DTIME, ETIME, FDATE, 
GMTIME, IDATE, IDATEY2K,ITIME, LTIME, 

TIME 

Error handling 

GERROR, IERRNO, PERROR 

File system functions 

ACCESS, CHDIR, CHMOD, FSTAT, ISATTY, 

LINK, LSTAT, RENAME, STAT, SYMLNK, 

TTYNAM, UNLINK 

Information retrieval 

GETARG, GETCWD, GETENV, GETGID, GETLOG, 
GETPID, GETUID, HOSTNM, IARGC 

1 nput/Output 

FGETC, FPUTC, FSEEK, FTELL, GETC, PUTC 

Memory allocation 

FALLOC, FREE, MALLOC 

M iscellaneous 

LOC, QSORT, SYSTEM 

Process control 

ALARM, FORK, KILL, SIGNAL, SLEEP, WAIT 

Tape input/output 

TCLOSE , TOPEN, TREAD, TREWIN, TSKIPF, 
TSTATE, TWRITE 
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Table 64 libU77 routines 


Name 

Description and signature 

ACCESS 

Determines the accessibility of a file. 

integer function access (name, mode) 
character (len=*) :: name, mode 

ALARM 

Executes a subroutine after a specified time. 

INTEGER FUNCTION ALARM (time, prOC) 

INTEGER : : time 

EXTERNAL prOC 

CHDIR 

Changes the default directory. 

integer function chdir (dir_name) 
character(len=*) :: dir_name 

CHMOD 

Changes the mode of a file. 

integer function chmod (name, mode) 
character (len=*) :: name, mode 

CTIME 

Converts a system time to a 24-character ASCI 1 string. 

CHARACTER (LEN=*) FUNCTION CTIME (Stime) 

INTEGER : : Stime 

DATEY2K 

Designed to replace the f90 date instrinsic. Its function and arguments are 
the same as the date intrinsic's ecept that the returned string contains a 
four-digit year in mm-dd-yyyy format instead of a two-digit year in 
mm-dd-yy format. 

SUBROUTINE DATEY2K(DATE) 

CHARACTER*11 DATE 

The +U77 flag (described in "+U77 option"on page588) must be used with 

DATEY2K. 

DTIME 

Returns elapsed execution time si nee the last call todtimeor si nee the start 
of execution on the first call. 

real function dtime (tarray) 
real :: tarray ( 2 ) 

ETIME 

Returns the elapsed execution time, in seconds, for the calling process. 

real function etime (tarray) 
real :: tarray ( 2 ) 


Chapter 12 


593 




BLAS and libll77 libraries 

libU77 routines 


Name 

Description and signature 

FALLOC 

Allocates array space in memory. 

subroutine falloc (nelem, elsize, clean, basevec, addr, offset) 
integer : : nelem, elsize, clean, addr, offset 

base/ec must be declared as an array whose elements a re el size bytes in 
size, falloc allocates space for basevec to contain nelem elements. 

FDATE 

Returns the date and time as an ASCI 1 string; available as a subroutine: 

SUBROUTINE FDATE (String) 

CHARACTER (LEN=*) :: String 

And as a function: 

CHARACTER(LEN=*) :: FUNCTION FDATE() 

FGETC 

Retrieves a character from a file specified by an HP Fortran logical unit. 

INTEGER FUNCTION FGETC (1 Unit, Char) 

INTEGER : : 1 unit 
character char 

FLUSH 

Flushes file for specified unit number. 

SUBROUTINE FLUSH (Unit) 

INTEGER : : unit 

FORK 

Creates a copy of the calling process. 

INTEGER FUNCTION FORK() 

FPUTC 

Writes a character to the file specified by an HP Fortran logical unit, 
bypassing normal HP Fortran I/O. 

INTEGER FUNCTION FPUTC (1 Unit, Char) 

INTEGER : : 1 unit 

CHARACTER :: Char 

FREE 

Releases memory previously allocated with malloc or falloc. 

subroutine free (addr) 

INTEGER :: addr 

FSEEK 

Repositions a file specified by an HP Fortran logical unit. 

integer function fseek (1 unit, offset, from) 
integer : : 1 unit, offset, from 

FSTAT 

Returns detailed information about a file by logical unit number. 

INTEGER FUNCTION FSTAT (1 Unit, Statb) 

INTEGER :: 1 unit, Statb (12) 
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Name 

Description and signature 

FTELL 

Returns the current position of the file associated with the specified logical 
unit. 

INTEGER FUNCTION FTELL (1 Unit) 

INTEGER : : 1 unit 

GERROR 

Returns the system error message to string; available as a subroutine: 

CHARACTER (LEN=*) :: String 

SUBROUTINE GERROR (String) 

And as a function: 

CHARACTER(LEN=*) FUNCTION GERROR() 

GETARG 

Returns command-linearguments. 

SUBROUTINE GETARG (k, arg) 

INTEGER :: k 

CHARACTER(LEN=*) :: arg 

GETC 

Retrieves a character from HP Fortran logical unit 5. 

INTEGER FUNCTION GETC (Char) 
character char 

GETCWD 

Retrieves the pathname of the current working directory. 

integer function getcwd (dir_name) 
character(len=*) :: dir_name 

GETENV 

Retrieves the value of an environment variable. 

subroutine getenv (ename, a/alue) 
character(len=*) :: ename, a/alue 

GETGID 

Retrieves the group 1 D of the user of the process. 

INTEGER FUNCTION GETGID() 

GETLOG 

Retrieves the user's login name; available as a subroutine: 

subroutine getlog (name) 

CHARACTER(LEN=*) :: name 

And as a function: 

CHARACTER(LEN=*) FUNCTION GETLOG() 

GETPID 

Returns the process 1 D of the current process. 

INTEGER FUNCTION GETPID () 

GETUID 

Returns the user 1 D of the user of the process. 

INTEGER FUNCTION GETUID () 
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Name 

Description and signature 

GMTIME 

Returns the Greenwich mean time in H P-UX format within an array of 
time elements. 

subroutine gmtime (stime, tarray) 
integer : : stime, tarray (9) 

HOSTNM 

Retrieves the name of the current host. 

INTEGER FUNCTION HOSTNM (name) 

CHARACTER(LEN=*) :: name 

IARGC 

Returns the index of the last command-line argument. 

INTEGER FUNCTION IARGC() 

IDATE 

Returns the date in numerical form. 

subroutine idate (iarray) 
integer : : iarray(3) 

IDATEY2K 

Designed to replace the H P f90 idate intrinsic. This returns the true year 
in its third argument, as opposed to the idate intrinsic, which returns the 
number of years since 1900 in its third argument. 

SUBROUTEIN IDATEY2K(MONTH,DATE,YEAR) 

INTEGER MONTH,DAY, YEAR 

The +U7 7 flag (described in "+U77 option”on page 588) must be used with 

IDATEY2K. 

IERRNO 

Returns the error number of the last detected system error. 

INTEGER FUNCTION IERRNO() 

ISATTY 

Checks whether a logical unit is associated with a terminal device. 

LOGICAL FUNCTION ISATTY ( 1 Unit) 

INTEGER : : 1 unit 

I TIME 

Returns the time in numerical form. 

subroutine itime (iarray) 
integer : : i array (3) 

KILL 

Sends a signal number to a user's process. 

INTEGER FUNCTION KILL (pid, Signum) 
integer : : pid, signum 

LINK 

Creates a link to an existing file. 

integer function link (namel, name2) 
character (len=*) :: namel, name2 

LOC 

Returns the address of an object. 

INTEGER FUNCTION LOC (arg) 
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Name 

Description and signature 

LSTAT 

Returns detailed information about the symbolic link to a specified file. 

(Use stat to obtain information about the file to which the link points.) 

integer function lstat (name, statb) 

CHARACTER(LEN=*) :: name 

INTEGER :: Statb (12) 

LTIME 

Returns the local time in H P-UX format within an array of time elements. 

subroutine ltime (stime, tarray) 
integer : : stime, tarray (9) 

MALLOC 

Allocates memory. 

subroutine malloc (size, addr) 
integer : : size, addr 

NUM_PROCS 

Returns the total number of processors on which the process has initiated 
threads. 

INTEGER FUNCTION NUM_PROCS() 

NUM_ 

THREADS 

Returns the total number of threads that the process creates at initiation, 
regardless of how many are idle or active. 

INTEGER FUNCTION NUM_THREADS() 

PERROR 

Retrieves system error messages, perror writes a message to H P Fortran 
logical unit 7 for the last detected system error. 

SUBROUTINE PERROR (String) 

CHARACTER (LEN=*) :: String 

PUTC 

Writes a character to the file specified by H P Fortran logical unit number 6, 
bypassing normal HP Fortran I/O. 

INTEGER FUNCTION PUTC (Char) 

character char 

QSORT 

Uses thequick-sort algorithm to sort the elements in a one-dimensional 
array. 

subroutine qsort (array, len, isize, compar) 

INTEGER : : len, isize 

external compar 
integer(2) compar 

RENAME 

Renames a file to the specified new name. 

INTEGER FUNCTION RENAME (from, to) 

CHARACTER(LEN=*) :: from, to 
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Name 

Description and signature 

SIGNAL 

Allows you tochangethe action for a signal. 

integer function signal (signum, proc, flag) 
integer : : signum, flag 

EXTERNAL proC 

SLEEP 

Suspends the execution of a process for a specified interval. 

subroutine sleep (itime) 

INTEGER : : itime 

STAT 

Returns detailed information about a file by name. When the named file is 
a symbolic link, stat returns information about thefileto which the link 
poi nts. 

integer function stat (name, statb) 

CHARACTER(LEN=*) :: name 

INTEGER : : Statb (12) 

SYMLNK 

Creates a symbolic link to an existing file. 

integer function symlnk (namel, name2) 
character (len=*) :: namel, name2 

SYSTEM 

Executes an HP-UX command. 

INTEGER FUNCTION SYSTEM (String) 

CHARACTER (LEN=*) :: String 

TCLOSE 

Closes the tape device channel and removes its association with tlu. 

INTEGER FUNCTION TCLOSE (tlu) 

INTEGER : : tlu 

TIME 

Returns the system time (in seconds) since 00:00:00 Greenwich mean time, 

J anuary 1, 1970. 

INTEGER FUNCTION TIME () 

TOPEN 

Associates a device name with a tape logical unit. 

integer function topen (tlu, da/nam, label) 

INTEGER : : tlu 

CHARACTER (LEN=*) :: da/nam 

TREAD 

Reads the next physical record from tape to a buffer. 

INTEGER FUNCTION TREAD (tlu, buffer) 

INTEGER : : tlu 

CHARACTER (LEN=*) :: buffer 

TREWIN 

Rewinds thespecified tape to the beginning of thefirst data file. 

INTEGER FUNCTION TREWIN (tlu) 

INTEGER : : tlu 


598 


Chapter 12 




BLAS and libll77 libraries 

libU77 routines 


Name 

Description and signature 

TSKIPF 

Allows the user toskip over files and records. 

INTEGER FUNCTION TSKIPF (tlu, nfilffi, nreCS) 

INTEGER : : tlu, nfiles, nreCS 

TSTATE 

Allows theuser to determine the logical state of the tape I/O channel and to 
see the tape drive control status register. 

integer function tstate (tlu, fileno, recno, errf, eoff, eotf, tcsr) 
integer : : tlu, fileno, recno, tcsr 
logical : : errf, eoff, eotf 

TTYNAM 

Returns a blank padded path name of theterminal device associated with a 
specified logical unit number. 

CHARACTER(LEN=*) FUNCTION TTYNAM ( 1 Unit) 

INTEGER : : 1 unit 

TWRITE 

Writes a physical record to tape from the specified buffer. 

INTEGER FUNCTION TWRITE (tlu, buffer) 

INTEGER : : tlu 

CHARACTER (LEN=*) :: buffer 

UNLINK 

Removes a specified directory entry 

INTEGER FUNCTION UNLINK (name) 

CHARACTER(LEN=*) :: name 

WAIT 

Waits for a process to terminate. 

INTEGER FUNCTION WAIT (Status) 

INTEGER : : Status 
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Table 65 lists the routines in the BLAS library and briefly summarizes 
the calculations they perform. 

Table 65 BLAS routines 


Routine name 

Calculation performed 

ISAMAX, IDAMAX, ICAMAX, 

IZAMAX 

Return index of largest element in vector. 

SASUM, DASUM, SCASUM, 

DZASUM 

Sum absolute values. 

SAXPY, DAXPY, 

CAXP Y,ZAXP Y 

Add scalar multiple of vector to vector. 

SCOPY, DCOPY, CCOPY, 

ZCOPY 

Copy a vector. 

SDOT, DDOT, CDOTC,CDOTU, 
ZDOTC,ZDOTU 

Compute dot product of two vectors. 

SGBMV, DGBMV, CGBMV, 

ZGBMV 

Multiply band matrix times vector. 

SGEMM, DGEMM, CGEMM, 

ZGEMM 

Multiply two general matrices. 

SGEMV, DGEMV, CGEMV, 

ZGEMV 

M ultiply general matrix times vector. 

SGER, DGER, CGERC, CGERU, 
ZGERC,ZGERU 

Compute dyadic product of two vectors. 

SNRM2, DNRM2, SCNRM2, 

DZNRM2 

Compute E udidean norm of vector. 

SROT, DROT, CROT, ZROT 

Apply Givens plane rotation. 

SROTM, DROTM 

Apply a modified Givens rotation. 

SROTG, DROTG, CROTG, 

ZROTG 

Construct Givens plane rotation. 
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Routine name 

Calculation performed 

SROTMG, DROTMG 

Construct modified Givens plane rotation. 

SSBMV, DSBMV, CHBMV, 

ZHBMV 

Multiply symmetric/Hermitian band matrix times vector. 

SSCAL, DSCAL, CSCAL, 
CSSCAL, ZSCAL, ZDSCAL 

Scale vector. 

SSPMV, DSPMV, CHPMV, 

ZHPMV 

M ultiply symmetric/Hermitian packed matrix times vector. 

SSPR, DSPR, CHPR, ZHPR 

Compute symmetric/Hermitian dyadic product of vector 
with itself, leaving result in packed form. 

SSPR2, DSPR2, CHPR2, 

ZHPR2 

Compute symmetric/Hermitian dyadic product of two 
vectors, leaving result in packed form. 

SSWAP, DSWAP, CSWAP, 

ZSWAP 

Swap two vectors. 

SSYMM, DSYMM, CHEMM, 

CSYMM, ZHEMM, ZSYMM 

Multiply two symmetric matrices. 

SSYMV, DSYMV, CHEMV, 

ZHEMV 

Multiply symmetric/Hermitian matrix times vector. 

SSYR, DSYR, CHER, ZHER 

Compute symmetric/Hermitian dyadic product of vector 
with itself. 

SSYR2, DSYR2, CHER2, 

ZHER2 

Compute symmetric/Hermitian dyadic product of two 
vectors. 

SSYR2K, DSYR2K, CHER2K, 
CSYR2K,ZHER2K,ZSYR2K 

Compute symmetric product of matrix and transpose or 
adjoint of second matrix. 

SSYRK, DSYRK, CHERK, 

CSYRK, ZHERK, ZSYRK 

Compute product of matrix and its transpose or adjoint. 

STBMV, DTBMV, CTBMV, 

ZTBMV 

Multiply triangular band matrix times vector. 

STBSV, DTBSV, CTBSV, 

ZTBSV 

Multiply inverse of triangular band matrixtimes vector. 


Chapter 12 


601 




BLAS and libll77 libraries 

BLAS routines 


Routine name 

Calculation performed 

STPMV, DTPMV, CTPMV, 

ZTPMV 

M ultiply triangular packed matrix times vector. 

STPSV, DTPSV, CTPSV, 

ZTPSV 

M ultiply inverse of packed triangular matrix times vector. 

STRMM, DTRMM, CTRMM, 

ZTRMM 

Multiply triangular matrix by general matrix. 

STRMV, DTRMV, CTRMV, 

ZTRMV 

Multiply triangular matrix times vector. 

STRSM, DTRSM, CTRSM, 

ZTRSM 

Multiply inverse of triangular matrix by general matrix. 

STRSV, DSTRSV,CTRSV, 

ZTRSV 

Multiply inverse of triangular matrixtimes vector. 

XERBLA 

Handle errors for BLAS matrix operations (Level 2 and 

Level 3 routines). 


602 


Chapter 12 




A 


I/O runtime error messages 


This appendix lists and describes the I/O runtime error messages that 
can be returned by the iosTAT=integer-variablespecifier. If an I/O error 
occurs during the execution of an I/O statement, and the statement 
includes the iostat= integer-variable specifier, the status code for the 
error will be returned in integer-variable Consider the following 
example: 

INTEGER ios 


OPEN (10, FILE='data_file', ERR=99, IOSTAT=ios) 

If data_fiie is successfully opened, ios will return 0; if for any reason 
the file cannot be opened, a nonzero status code will be returned in ios. 
By referring to this appendix, you can get information about the error 
and how to correct it. 
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Runtime I/O errors 

The error information listed in this section includes the codes returned 
by iostat=, plus the foil owing: 

• The message that the runtime system would send to standard error if 
you did not include the iostat= specifier. 

• A diagnosis of the conditions that might have resulted in the error. 

• Actions that the programmer can take to correct the error. 


Table 66 Runtime I/O errors 


Error 

no. 

Error message 

Description 

Action 

900 

ERROR IN FORMAT 

FORMAT statement 
syntax contains an error. 

Seethe "I/O and file 
handling”chapter for the 
syntax of the format 
specification and edit 
descriptors. 

901 

NEGATIVE UNIT 
NUMBER SPECIFIED 

U nit number was not 
greater than or equal to 
zero. 

Use a nonnegative unit 
number. 

902 

FORMATTED I/O 
ATTEMPTED ON 
UNFORMATTED FILE 

Formatted I/O was 
attempted on a file 
opened for unformatted 

I/O. 

Open the file for 
formatted I/O or perform 
unformatted I/O on this 
file. 

903 

UNFORMATTED I/O 
ATTEMPTED ON 
FORMATTED FILE 

Unformatted I/O was 
attempted on a file 
opened for formatted I/O. 

Open the file for 
unformatted I/O or 
perform formatted I/O on 
this file. 

904 

DIRECT I/O 
ATTEMPTED ON 
SEQUENTIAL FILE 

Direct operation 
attempted on sequential 
file, direct operation 
attempted on opened file 
connected to a terminal. 

Use sequential 
operations on this file, 
open file for direct access, 
or do not do di red 1 /O on 
a fileconneded to a 
terminal. 
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Error 

no. 

Error message 

Description 

Action 

905 

ERROR IN LIST- 
DIRECTED READ OF 
LOGICAL DATA 

Found repeat value, but 
no asterisk. First 
character after optional 
decimal point was notT 
or F. 

Change input data to 
correspond to syntax 
expected by list-directed 
input of logicals, or use 
input statement that 
corresponds to syntax of 
input data. 

907 

ERROR IN LIST- 
DIRECTED READ OF 
CHARACTER DATA 

Found repeat value, but 
no asterisk. Characters 
not delimited by 
quotation marks. 

Change input data to 
correspond to syntax 
expected by list-directed 
input of characters, or 
use input statement that 
corresponds to syntax of 
input data. 

908 

COULD NOT OPEN 

FILE SPECIFIED 

Tried to open a file that 
the system would not 
allow for one of the 
fol 1 owi ng reasons: access 
to the file was denied by 
the file system due to 
access restriction; the 
named filedoes not exist; 
or the type of access 
request is impossible. 

Correct the pathname to 
open the intended file. 

909 

SEQUENTIAL I/O 
ATTEMPTED ON 
DIRECT ACCESS FILE 

Attempted a 

BACKSPACE, REWIND, 
or ENDFILE on a 
terminal or other device 
for which these 
operations are not 
defined. 

Do not use the 
BACKSPACE, REWIND, 
and ENDFILE 
statements. 

910 

ACCESS PAST END OF 
RECORD ATTEMPTED 

Tried to do I/O on record 
of a fi 1 e past begi nni ng or 
end of record. 

Perform I/O operation 
within bounds of the 
record, or increase record 
length. 
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Error 

no. 

E rror message 

Description 

Action 

912 

ERROR IN LIST I/O 
READ OF COMPLEX 
DATA 

While reading complex 
data, one of the foil owing 
problems has occurred: 
no left parenthesis and 
no repeat value; repeat 
value was found but no 
asterisk; or no closing 
right parenthesis. 

Change input data to 
correspond to syntax 
expected by list-directed 
input of complex 
numbers, or use input 
statement corresponding 
to syntax of input data. 

913 

OUT OF FREE SPACE 

Library cannot allocate 
an I/O block (from an 
OPEN statement), parse 
array (for formats 
assembled at run-time), 
file name string (from 
OPEN) characters from 
list-directed read, or file 
buffer. The program may 
be tryi ng to overwrite a 
shared memory segment 
defined by another 
process. 

A11 ocate more free space 
in the heap area, open 
fewer fi les, use F ORM AT 
statements in pi ace of 
assembling formats at 
run time in character 
arrays, or reduce the 
maximum size of file 
records. 

914 

ACCESS OF 

UNCONNECTEDUNIT 

ATTEMPTED 

Unit specified in I/O 
statement has not 
previously been 
connected to anything. 

Connect unit using the 
OPEN statement before 
attempting I/O on it, or 
perform I/O on another, 
already connected, unit. 

915 

READ UNEXPECTED 
CHARACTER 

Read a character that is 
not admissible for the 
type of conversion being 
performed. 1 nput value 
was too large for the type 
of the variable. 

Remove from input data 
any characters that are 
illegal in integers or real 
numbers. 
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Error 

no. 

E rror message 

Description 

Action 

916 

ERROR IN READ OF 
LOGICAL DATA 

An illegal character was 
read when logical data 
was expected. 

Change input data to 
correspond to syntax 
expected when reading 
logical data or use input 
statement corresponding 
to syntax of input data. 

917 

OPEN WITH NAMED 
SCRATCH FILE 
ATTEMPTED 

Executed OPEN 
statement with 

STATU S—SCRATCH', 
but also named the file. 
Scratch files must not be 
named. 

Either removetheFILE = 
specifier, or open thefile 
with a status other than 
STATU S='SCRATCH'. 

918 

OPEN OF EXISTING 
FILE WITH 
STATUS-NEW' 
ATTEMPTED 

Executed OPEN 
statement with 

STATUS—NEW', but file 
already exists. 

Either remove the 

ST AT U S=s peci f i er f rom 
the OPEN statement, or 
use the STATU S-OLD'; 
STATU S='UN KNOWN'; 
or STATU S='RE PLACE' 
specifier. 

920 

OPEN OF FILE 
CONNECTED TO 
DIFFERENT UNIT 
ATTEMPTED 

You attempted to open a 
file that is already open 
with a different unit 
number. 

Close the file with the 
current unit number 
before attempti ng to open 
it with a different unit 
number. 

921 

UNFORMATTED 

OPEN WITH BLANK 
SPECIFIER 

ATTEMPTED 

OPEN statement 
specified 

FORM-UNFORMATTE 

D' and BLANK^xx. 

Either use 

FORM-FORMATTED' 
or remove BLANK =±xx. 

922 

READ ON ILLEGAL 
RECORD ATTEMPTED 

Attempted to read a 
record of a formatted or 
unformatted direct file 
that is beyond the 
current end-of-file. 

Read records that are 
within the bounds of the 
file. 
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Error 

no. 

E rror message 

Description 

Action 

923 

OPEN WITH ILLEGAL 
FORM SPECIFIER 
ATTEMPTED 

FORM = specified string 
other than 
'FORMATTED'or 
'UNFORMATTED'. 

Use either 
'FORMATTED'or 
'UNFORMATTED'for 
the FORM =specifier in 
an OPEN statement. 

924 

CLOSE OF SCRATCH 
FILE WITH 

STATU S='KEEP' 
ATTEMPTED 

The file specified in the 
CLOSE statement was 
previously opened with 
'SCRATCH' specified in 
t he ST AT U S=sped f i er. 

Open thefile with a 

STATUS=, specifying a 
string other than 
'SC RATC H' or do not 
specify STATUS='KEEP' 
intheCLOSE statement 
for this scratch file. 

925 

OPEN WITH ILLEGAL 
STATUS SPECIFIER 
ATTEMPTED 

STATU S=specified 
string other than 'OLD' 
'NEW' 'UNKNOWN' 
'REPLACE'or 
'SCRATCH'. 

Use 'OLD’, 'NEW', 
'UNKNOWN', 

'RE PLACE'or 
'SCRATCH'for the 

STATUS=specifier in 
OPEN statement. 

926 

CLOSE WITH 

ILLEGAL STATUS 
SPECIFIER 

ATTEMPTED 

STATU S=specified 
stri ng other than 'KEEP' 
or 'DELETE'. 

Use 'KEEP' or 'DELETE' 
for the STATU S= 
specifier in a CLOSE 
statement. 

927 

OPEN WITH ILLEGAL 
ACCESS SPECIFIER 
ATTEMPTED 

ACCESS=specified 
string other than 
'SEQUENTIAL' or 
'DIRECT'. 

Use 'SEQUENTIAL' or 
'DIRECT'for the 
ACCESS=specifier in an 
OPEN statement. 

929 

OPEN OF DIRECT 

FILE WITH NO RECL 
SPECIFIER 

ATTEMPTED 

OPEN statement has 
ACCESS—Dl RECT', but 
no RECL = specifier. 

Add RECL = specifier to 
OPEN statement, or 
specify ACCESS= 
'SEQUENTIAL'. 

930 

OPEN WITH RECL 
LESSTHAN 1 
ATTEMPTED 

RECL = specifier in 

OPEN statement was 
less than or equal to zero. 

Specify a positive number 
for RECL = specifier in 
OPEN statement. 
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Error 

no. 

Error message 

Description 

Action 

931 

OPEN WITH ILLEGAL 
BLANK SPECIFIER 
ATTEMPTED 

BLANK=specified string 
other than 'NU L L' or 
'ZERO' 

Use'NULL'or'ZERO'for 
BLAN K = specifier in 

OPEN statement. 

933 

END (OR BEGIN) OF 
FILE WITH NO END=x 
SPECIFIER 

End-of-file mark read by 
a READ statement with 
no EN D = specifier to 
indicate label to which to 
jump. 

Use the END = specifier 
to handl e E OF, or check 
logic. 

937 

ILLEGAL RECORD 
NUMBER SPECIFIED 

A record number less 
than one was specified 
for direct I/O. 

Use record numbers 
greater than zero. 

942 

ERROR IN LIST- 
DIRECTED READ - 
CHARACTER DATA 
READ FOR 
ASSIGNMENTTO 
NONCHARACTER 
VARIABLE 

A character string was 
read for a numerical or 
logical variable. 

Check input data and 
input variable type. 

944 

RECORD TOO LONG 

IN DIRECT 
UNFORMATTED I/O 

Output requested is too 
long for specified (or pre¬ 
existing) record length. 

M akethe number of 
bytes output by WRITE 
less than or equal to the 
file record size. 

945 

ERROR IN 

FORMATTED I/O 

M ore bytes of 1 /O were 
requested than exist in 
the current record. 

M atch the format to the 
data record. 

953 

NO REPEATABLE 

EDIT DESCRIPTOR IN 
FORMAT STRING 

N o format descri ptor was 
found to match I/O list 
items. 

Add at least one 
repeatable edit descri ptor 
to the format statement. 

956 

FILE SYSTEM ERROR 

The file system returned 
an error status during an 
I/O operation. 

Seetheassociated file 
system error message. 
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I/O runtime error messages 

Runtime I/O errors 


Error 

no. 

E rror message 

Description 

Action 

957 

FORMAT 

DESCRIPTOR 
INCOMPATIBLE WITH 
NUMERIC ITEM IN I/O 
LIST 

A numeric item in the I/O 
list was matched with a 
nonnumeric edit 
descriptor. 

M atch format descri ptors 
to I/O list. 

958 

FORMAT 

DESCRIPTOR 
INCOMPATIBLE WITH 
CHARACTER ITEM IN 
I/O LIST 

A character item in the 1/ 

0 list was matched with 
an edit descriptor other 
than A or R. 

M atch format descri ptors 
to I/O list. 

959 

FORMAT 

DESCRIPTOR 
INCOMPATIBLE WITH 
LOGICAL ITEM IN I/O 
LIST 

A logical item in the I/O 
list was matched with a 
edit descriptor other 
than L. 

M atch format descriptors 
to I/O list. 

973 

RECORD LENGTH 
DIFFERENT IN 
SUBSEQUENT OPEN 

Record length specified 
in second OPEN 
conflicted with the value 
as opened. 

OnlyBLANK=,DELIM=, 
and PAD = specifiers may 
be changed by a 
redundant OPEN. 

974 

RECORD ACCESSED 
PAST END OF 
INTERNAL FILE 
RECORD (VARIABLE) 

An attempt was made to 
transfer more characters 
than internal file length. 

Match READ or WRITE 
statement with internal 
file size. 

975 

ILLEGAL NEW FILE 
NUMBER 

REQUESTED IN FSET 
FUNCTION 

The file number 
requested to be set was 
not a legal filesystem file 
number. 

Check that the OPEN 
succeeded and the file 
number is correct. 

976 

UNEXPECTED 
CHARACTER IN 
"NAMELIST” READ 

An illegal character was 
found in namelist- 
directed input. 

Be sure input data 
conforms to the syntax 
rules for namelist- 
directed input, or remove 
illegal character from 
data. 
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I/O runtime error messages 

Runtime I/O errors 


Error 

no. 

Error message 

Description 

Action 

977 

ILLEGAL SUBSCRIPT 
OR SUBSTRING IN 
"NAMELIST” READ 

An invalid subscript or 
substring specifier was 
found in namelist- 
directed input. Possible 
causes include bad 
syntax, subscript/ 
substring component out- 
of-bounds, wrong number 
of subscripts and 
substring on non¬ 
character variable. 

Check input data for 
syntax errors. Be sure 
subscript/substring 
specifiers are correct for 
data type. Specify only 
array elements within 
the bounds of the array 
being read. 

978 

TOO MANY VALUES 

IN "NAMELIST" READ 

Too many input values 
were found during a 
namelist-directed READ. 
This message will be 
generated by attempts to 
fill variables beyond their 
memory limits. 

Supply only as many 
values as the length of 
the array. 

979 

VARIABLE NOT IN 
NAMELIST GROUP 

A variable name was 
encountered in the input 
stream that was not 
declared as part of the 
current namelist group. 

Read only the variables 
in this namelist. 

980 

NAMELIST I/O 
ATTEMPTED ON 
UNFORMATTED FILE 

An illegal namelist- 
directed I/O operation 
was attempted on an 
unformatted (binary) file. 

Specify 

FORM-FORMATTED' 
in OPEN statement, or 
use namelist-directed 

I/O only on formatted 
files. 

1010 

OPEN WITH ILLEGAL 
PAD SPECIFIER 
ATTEMPTED 

An attempt was made to 
open a file with an illegal 
value specified for the 

PAD = specifier. 

Specify either PAD-YES' 
or PAD —NO'. 
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I/O runtime error messages 

Runtime I/O errors 


Error 

no. 

E rror message 

Description 

Action 

1011 

OPEN WITH ILLEGAL 
POSITION SPECIFIER 
ATTEMPTED 

An attempt was made to 
open a file with an illegal 
value specified for the 
POSITI ON = specifier. 

Specify 

POSITI ON BASIS', 

POSITI ON-REWIND'or 
POSITI ON — APPE N D'. 

1012 

OPEN WITH ILLEGAL 
DELIM SPECIFIER 
ATTEMPTED 

An attempt was made to 
open a file with an illegal 
value specified for the 
DELIM = specifier. 

Specify DELIM = 
'APOSTROPHE', 

DELIM-QUOTE' or 
DELIM-NONE'. 

1013 

OPEN WITH ILLEGAL 
ACTION SPECIFIER 
ATTEMPTED 

An attempt was made to 
open a file with an illegal 
value specified for the 
ACTION = specifier. 

Specify 

ACTION=!READ', 

ACTI ON-WRITE' or 
ACTION=!READWRITE'. 
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Glossary 


A 

actual argument A value, 
variable, or procedure that is 
passed by a call to a procedure 
(function or subroutine). The 

actual argument appears in the 
source of the cal ling procedure. See 
also dummy argument. 

adjustable array A dummy 
argument that is an array 

having at least one nonconstant 

dimension. 

allocatable array A named 
array with the allocatable 
attri bute whose rank is specified 
at compile time, but whose 
bounds are determined at run 
ti me. Storage for the array must be 
explicitly allocated before the 
array may be referenced. 

archive library A library of 

routines that can be linked to an 
executable program at link-time. 
See also shared library. 

argument (1) A variable, 

declared in the argument list of a 
procedure or entry statement, 
that receives a value when the 
procedure is called (a dummy 
argument). (2) The variable, 
expression, or procedure that is 
passed by a call to a procedure (an 
actual argument). 


argument association The 

correspondence between an actual 
argument and a dummy 
argument during execution of a 
procedure reference. 

argument keyword A dummy 
argument name. Argument 
keywords can be used to pass 
actual arguments to a 
procedure i n any order if the 
procedure has an explicit interface. 

array A rectangular pattern of 

elements of the same data type. 

The properties of an array include 

its rank, shape, extent, and data 
type. See also bounds and 
dimension. 

array constructor A rank-one 
array represented as a sequence 
of scalar or array val ues that may 

be constant or variable. 

array element An individual, 
scalar component of an array 
that is specified by the array name 
and, in parenthesis, one or more 
subscripts that identify the 
element's position in the array. 

array element order The order 
in arrays are laid out in memory. 
The array element order for 
H P Fortran 90 arrays is column- 
major order. Array element order 
can also be used to determine 
sequence association. 
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array pointer An array that 
has the pointer attri bute and 
may therefore be used to poi nt to a 
target object. 

array section A subset of an 
array specified by a subscript 
triplet or vector subscript in 

one or more dimensions. For an 
array a(4,4),a(2:4:2,2:4:2) 
is an array section containing only 
the evenly indexed elements 

a (2,2), a (4,2), a (2,4) , and 
a (4,4 ) . 

array-valued Having the 
property of being an array. For 
example, an array-valued 

function has a return value that 
is an array. 

association The mechanism by 
which two or more names may 
refer to the same entity. See also 

argument association, host 
association, pointer 
association, sequence 
association, storage 
association, and use 
association. 

assumed-shape array An 
array that is a dummy 
argument to a procedure and 
whose shape is assumed (taken) 
from that of the associ ated actual 
argument. An assumed-shape 
array's upper bound in each 
dimension is represented by a 
colon (:). See also assumed-size 
array. 

assumed-size array An older 
FORTRAN 77feature. An array 
that is a dummy argument to a 
procedure and whose size (but 
not necessarily its shape) is 


assumed (taken) from that of the 
associated actual argument. The 
upper bound of an assumed-size 
array's last dimension is specified 
by an asterisk (*). See also 
assumed-shape array. 

attribute A property of a 
constant or variable that may be 
specified i n a type declaration 
statement. Most attributes may 
alternately be specified in a 
separate statement. For instance, 
the allocatable statement has 
the same meaning as the 
allocatable attribute, which 
appears in a type declaration 
statement. 

automatic array An explicit- 
shape array that is local to a 

procedure and is not a dummy 
argument. One or more of an 
automatic array's bounds is 
determined upon entry to the 
procedure, allowing automatic 
arrays to have a different size and 
shape each time the procedure is 
invoked. 

automatic data object A data 
object declared in a subprogram 
whose storage space i s dyna mi cal I y 
allocated when the subprogram is 
invoked; its storage is released on 
return from the subprogram. 
Fortran 90 supports automatic 
arrays and automatic character 
string variables. 

B 

bit A binary digit, either 1 or 0. 
See also byte. 
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blank common A common 
block that is not associated with a 

name. 

block A series of consecutive 
statements that are treated as a 
complete unit and are within a 

SELECT CASE, DO, IF, Or WHERE 

construct. 

block data program unit A 

procedurethat establishes initial 
values for variables in named 
common blocks and contains no 
executable statements. A block 
data program unit begins with a 
block data statement. 

bounds The minimum and 
maximum values permitted as a 

subscript of an array for each 
dimension. For each dimension, 

there are two bounds—the upper 
and lower bounds—that define the 
range of values for subscripts. 

BOZ constants A literal 
constant that can be formatted as 
binary, octal, or hexadecimal. See 
also typeless constant. 

built-in functions %ref and 

%val —H P extensions that can be 
used to change argument-passing 
rules in procedure references. 

byte A group of contiguous bits 
starting on an addressable 
boundary. In HP machines, a byte 
is 8 bits in length. 

C 

character A digit, letter, or 
other symbol in the character set. 
See Appendix B, "Character set". 


character string A sequence of 
zero or more consecutive 

characters. 

column-major order The 

default storage method for arrays 
in HP Fortran 90. Memory 
representation of an array is such 
that the columns are stored 
contiguously. For example, given 
the array a ( 2,3 ) , element 
a (l, l) would be stored inthefirst 
location, element a ( 2 , l) in the 
second location, element a (l, 2) in 
the third location, and soon. See 
also row-major order. 

common block A block of 
memory for stori ng variables. A 
common block is a global entity 
that may be referenced by one or 
more program units. 

compile-line option A flag that 
can be specified with the f90 
command line to override the 
default actions of the H P Fortran 
compiler. 

compiler directive A specially- 
formatted comment within a 
source program that affects how 
the program is compiled. Compiler 
directives are not part of the 
Fortran 90 Standard. I n 
HP Fortran 90, compiler directives 
provide control over source listing, 
optimization, and other features. 

component A constituent that is 
part of a derived type. A derived 
type may consist of one or more 
components. For example, 
time%hour refers to the hour 
component of time (and time is a 
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variable whose data type is a 

derived type defined in the 

program). 

conformable Two arrays are 
conformable if both arrays have 
the same rank (number of 
dimensions) and the same extent 
(number of elements for each 
dimension). A scalar is 
conformable with any array. 

connected (1) A unit is 
connected if it refers to an 
external file. (2) An external file 
is connected if a unit refers to it. I n 
both cases, connection is 
established either by the open 
statement or by preconnection. See 
also preconnected. 

constant A data object that 
retains thesame valueduring a 
program's execution. A constant's 
value is established when a 
program is compiled. A constant is 
either a literal constant or a 
named constant. 

constant expression An 
expression whose value does not 
vary during the program's 
execution. A constant expression's 

operands are all constants. 

construct A series of 
statements that begins with a 

SELECT CASE, DO, IF, Or WHERE 

statement and ends with a 
corresponding end select, 

END DO, END IF, Or ENDWHERE 

statement. 


D 

data type A named category of 
data that has a set of val ues, a way 
to denote its values, and a set of 
operations for interpreting and 
manipulating the values. Fortran 
90 intrinsic data types include 
character, complex, double 
precision, integer, logical, and real. 
HP Fortran 90 also provides the 
byte and double complex data 
types as extensions. See also 
derived type. 

deferred-shape array An 
allocatable array or a pointer 
array (an array with the 

ALLOCATABLE Or POINTER 

attribute). 

defined assignment A non- 
intrinsic assignment statement 
that is defined by an 
assignment ( = ) interface block 
and a subroutine. 

defined operator An operator 

that is present in an interface 
statement and has its operation 
implemented by one or more user- 
defined functions. 

demand-loadable A process is 
demand-loadable if its pages are 
brought into physical memory only 
when they are accessed. 

derived type A user-defined 
(non-intrinsic) data type that 
consists of one or more 
components. E ach component of 
a derived type is either an 
intrinsic data type or another 
derived type. 
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dimension Each subscript of 
an array corresponds to a 
dimension of the array; arrays 
may have from one to seven 
dimensions. The number of 
dimensions is an array's rank. See 
also extent. 

directive See compiler 
directive. 

disassociated A pointer that is 
disassociated points to no target. A 
pointer becomes disassociated 
following a deallocate or 
nullify statement involving the 
pointer or by the pointer being 
associated with (pointing to) a 
disassociated pointer. 

dummy argument An entity 
whose name appears in the 
argument list of a procedure or 
entry statement. It is associated 
with an actual argument when 
the procedure is called. The 
dummy argument appears in the 
source of the called procedure. 

dummy array A dummy 
argument that is an explicit- 
shape array. 

dusty deck program An older, 
pre-FORTRAN 77 program. 
Presumably called a "dusty deck” 
program because it was stored on 
punched cards and has not been 
changed since. Such programs 
generally rely on nonstructured 
programming techniques such as 
the goto statement. 

E 

element See array element. 


elemental To be elemental, an 
intrinsic operation, procedure, 

or assignment must apply 
i ndependently to every element of 
an array or apply independently 
to the corresponding elements of a 
set of conformable arrays and 
scalars 

equivalencing The process of 
sharing storage units among two 
or more data objects by means of 
the equivalence statement. 

executable statement An 

instruction that causes the 
program to perform one or more 
computational or branching 
actions. 

explicit interface A 
procedure i nterface whose 
properties (including the name and 
attri butes of the procedu re and the 
order and attributes of its 
arguments) are known by the 
calling program unit. A 
procedure may have an explicit 
interface in a scoping unit if it is 
any of the foil owing: 

• Described by an interface 
block 

• An internal procedure 

• A module procedure 

• A statement function 

explicit-shape array An array 

with explicitly-declared bounds for 
each dimension. 

expression A series of 
operands and (optionally) 
operators and parentheses that 
forms either a data reference or a 
computation. See also constant 
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expression, initialization 
expression, and specification 
expression. 

extended operator See 
defined operator. 

extent The number of elements 
in one dimension of an array. 

external file Afilethatis 

stored on a medium external tothe 
executing program. 

external name The name of an 

object referenced by a program 
unit, as it appears tothe linker. 
Case is not significant in the 
names that appear in Fortran 
source files; but it is significant in 
external names. 

external procedure A 

procedure that is not contained in 

a main program, module, or 
another subprogram. 

F- H 

file A sequence of records 
(characters or values processed 
as a unit). 

See also external file and 
internal file. 

function A procedure that 
returns a value (the function 
result) and that can be referenced 

in an expression. 

function result The data object 
returned from a call to a function. 

generic procedure A 
procedure in which at least one 

actual argument may have more 


than one data type. Generic 
procedures may be intrinsic or 
user-defined. 

global entity A program unit, 
common block, or external 
procedure whose scope is the 

entire executable program. 

High Performance Fortran 
(HPF) An extension tothe 
Fortran 90 Standard that provides 
user-directed data distribution and 
alignment. HPF is not a standard, 
but rather a set of features 
desirablefor parallel 
programming. 

host A program unit or 
subprogram that contains an 

internal procedure or module. 

host association The process by 
which an internal procedure, 
module procedure, or derived 
type definition accesses the 
entities of its host. 

I - K 

initialization expression A 

more restricted form of constant 
expression that is used to 
initialize data. 

inquiry function An intrinsic 

function whose return value 
provides information based on the 
principal arguments' properties 
and not the arguments' values. 

i ntent An attri bute of a 
dummy argument that indicates 
whether the argument is used for 
transferring data into the 
procedure, out of the procedure, 
or both. 
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internal file A variablethat is 
used as a file storage medium for 
formatted I/O. I nternal files are 
stored in memory and typically are 
used to convert data from a 
machine representation to a 
character representation by use 
of edit descriptors. 

internal procedure A 
procedure contained in a main 
program or another 
subprogram. 

intrinsic Assignment 
statements, data types, 
operations, and procedures are 
intrinsic if they are defined in the 
Fortran 90 Standard and may be 
used, without being defined, in any 
scoping unit. 

keyword option A Fortran 90 
feature that allows an actual 
argument to appear anywhere in 
the argument list to a procedure 
reference. 

kind type parameter An 

integer parameter whose value 
determi nes the range for an 
intrinsic data type; for example 
integer(kind=2 ).The kind type 
parameter also determines the 
precision for complex and real 
data types. 

L- M 

label An integer, one to five 
digits long, that precedes a 
statement and identifies it with a 
unique number. A statement's 
label provides a way to transfer 
control to the statement or to 
reference it as a format 
statement. 


library A file that contains 
object code for subroutines and 
data that can be used by programs 
written in Fortran 90, among other 
languages. See also linker. 

linker The id utility. The linker 
resolves references in a program's 
source to routines that are not in 
the source file being compiled. The 
linker matches each reference, if 
possible, to the corresponding 
library routine. 

literal constant A constant 

that does not have a name. A 
literal constant's value is written 
directly into a program. See also 

named constant. 

lower bounds See bounds. 

main program The first 
program unit that starts 
executing when a program is run. 
The first statement of a main 
program usually is the program 
statement. 

module A program unit that 
contains definitions of derived 
types, procedures, namelists, 
and variables that are made 
accessible to other program units. 
A module begins with the module 
statement and its public 
definitions are made availableto 
other program units by means of 
the use statement. 

module procedure A 
procedure that is contained in a 

module and is not an internal 
procedure. 
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N-0 

name A letter followed by up to 
254 alphanumeric characters 
(letters, digits, underscores, and $) 
that identifies an entity in an 
HP Fortran 90 program unit, 
such as a common block, 
dummy argument, procedure, 
program unit, or variable. 

named constant A constant 
that has a name. See also literal 
constant. 

numeric type A complex, 
double precision, integer, or real 

data type. 

obsolescent feature A feature 
defined in the FORTRAN 77 
Standard that still is in common 
use but is considered to be 
redundant, such as the arithmetic 
if statement. 

The use of obsolescent features is 
discouraged. The Fortran 90 
Standard summarizes the 
obsolescent features. 

operand An expression that 
precedes or fol lows an operator. 
For example, in a + b, both a and 
b are operands. 

operator A sequence of one or 
more characters in an expression 
that specifies an operation. For 
example, in a + b, + is an 
operator. 

option See compile-line 
option. 


optional argument A dummy 
argument that does not require a 
corresponding actual argument 

to be supplied when its procedure 
is invoked. 

P- R 

pointer A variablethat has the 
pointer attribute, which enables 
it to reference (point to) variables 
of a specified data type (rather 
than storing the data itself). 

pointer association The 

process by which a pointer 
becomes associated with the 
storage space of its target. Pointer 
association occurs during pointer 
assignment or a valid allocate 
statement. 

preconnected Three input/ 
output units are preconnected to 

files by the operating system and 
need not be connected by the 
open statement. The preconnected 
units are: 

• U nit 5 (standard input) 

• U nit 6 (standard output) 

• U nit 7 (standard error) 

procedure A unit of program 
code that may be invoked. A 
procedure can be either a 

function or a subroutine. 

program A sequence of 
instructions for execution by a 
computer to perform a specific 
task. A program is executable after 
successful compilation and 
linking. 
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program unit A main 
program, a module, an external 
procedure, or a block data 
subprogram. 

rank The number of 

dimensions of an array. Scalars 

have a rank of zero. 

record A sequence of val ues 
treated as a whole within a file. 

renaming feature A feature of 
the use statement that allows 
module entities to be renamed 
within the program unit having 
access to the entities by use 
association. 

return value See function 
result. 

row-major order The default 
storage method for arrays in C. 
Memory representation is such 
that the rows of an array are 
stored contiguously. For example, 
given the array a [ 3 ] [ 2 ], the 
element a [0] [0] would be stored 
in the first location, element 
a [ o ] [l] in the second location, 
element a [l] [0] inthethird 
location, and so on. See also 
column-major order. 

S 

scalar A data item that has a 
rank of zero and therefore is not 

an array. 

scope The part of a program i n 

which a name or declaration has a 
single interpretation. 

scoping unit A derived-type 

definition, an interface body 
(excluding derived-type definitions 


or interface bodies it contains), or a 
program unit or subprogram 

(excluding any derived-type 
definitions, interface bodies, or 
subprograms it contains). 

sequence association The 
association between dummy 
argument and actual argument 

that occurs when the two differ in 
rank or character length. Dummy 
and actual arguments are matched 
element by element or character 
by character, starting with thefirst 
and proceeding in order. See also 
array element order and 
column-major order. 

sequence derived type A 
derived type whose definition 
includes the sequence 
statement. The components of a 

sequence derived type are in the 
storage sequence as specified in 
the definition of the derived type. 

shape An array's extent 
(number of elements) in each 
dimension and rank (number of 

dimensions). 

shared library A library of 

routines that can be linked to an 
executable program at runtime, 
allowing the shared library to be 
used by several programs 
simultaneously. See also archive 
library. 

size The total number of 
elements i n an array; the product 
of all its extents. 

specific procedure A procedure 
for which each actual argument 
must be of a specific data type. See 
also generic procedure. 
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specification expression A 

limited form of an expression 
that can appear in a specification 

statement— for example, a type 
declaration statement— and can 

be evaluated on entry to a 

procedure. 

statement A sequence of 
characters that represents an 
instruction or step in a program. 
A single statement usually, but not 
always, occupies one line of a 
program. 

statement function A 
function that returns a scalar 
value and is defined by a single 
scalar expression. 

statement label See label. 

storage association The 
association of different Fortran 
objects with the same storage. 
Storage association is achieved by 
means of common blocks and 
equivalencing. 

storage sequence The order i n 
which Fortran objects are laid out 
in memory. Programmers can 
control storage sequence by means 
of common blocks and 
equivalencing, and by defining 
sequence derived types. The 
storage sequence of arrays is 
determined by array element 
order. 

stride The increment that may 
optionally be specified in a 

subscript triplet. If it is not 

specified, the stride has a value of 
one. 

structure A data object that is 

scalar and is of derived type. 


structure component See 
component. 

subprogram See procedure. 

subroutine A procedure that 
is referenced by a call statement; 
values returned by a subroutine 
are usually provided through the 
subroutine's arguments. 

subscript A scalar value within 
the bounds of onedimension of an 
array. To specify a single array 
element, a subscript must be 
specified for each of the array's 
dimensions. 

subscript triplet An array 
section specification that consists 
of a starting element, an ending 
element, and (optionally) a stride 
separated by colons (:). 

substring A contiguous segment 
of a scalar character string. Note 
that a substring is not an array 
section. 

T-Z 

target A named data object that 
may be associated with a pointer. 
A target is specified in a target 

statement or in a type 
declaration statement that has 
the target attribute. 

type See data type. 

type declaration statement A 
statement that specifies the data 
type and, optionally, attributes 
for one or more constants, 
functions, or variables. 

typeless constants A literal 
constant that is formatted to 
represent a bit pattern and 
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therefore does not imply the type 
of the constant. BOZ constants 
and Hollerith constants are both 
typeless. 

unit number A logical number 
that can be connected to a file to 
provide a means for referring to 
the file in input/output 

statements. 

upper bounds See bounds. 

use association The association 
of names among different 
scoping units as specified by a 

use statement. See also module. 

user-defi ned operator See 
defined operator. 

user-defi ned assignment See 
defined assignment. 

variable A data object whose 
value may be defined and 
redefined during a program's 
execution. For example, array 
elements or array sections, 
named data objects, structure 
components, and substrings all 
can be variables. 

vector subscript A method of 
referencing multiple, possibly 
discontinuous elements of an 
array by using a rank-one array 
of integer values as a subscript. 

whole array An array 

reference—for example, in a type 
declaration statement— that 
consists of the array name alone, 
without the subscript notation. 
Whole array operations affect 
every element in the array, not 
just a single, subscripted element. 


zero-sized array Anarraywith 

at least one dimension that has 
at least one extent of zero. A zero¬ 
sized array has a size of zero and 
contains no elements. 
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A 

-tautodbl option 

type declaration statement, 24 
A edit descriptor, 213 
errors, 610 
ABORT clause 
ON statement, 376 
ABORT intrinsic subroutine, 

488 

ABS intrinsic function, 488 
ACCEPT statement, 245 
data list items, 193 
ACCESS routine, 593 
access to entities, limiting, 405, 
409 

ACCESS=specifier 
errors, 609 

IN QUIRE statement, 345 
OPEN statement, 379 
accessing files, 178 
direct, 185 
examples, 202 
list-directed, 179 
namelist I/O, 183 
sequential, 178 

ACHAR intrinsic function, 488 
ACOS intrinsic function, 489 
ACOSD intrinsic function, 489 
ACOSH intrinsic function, 490 
ACTION=specifier 
errors, 612 

INQUIRE statement, 345 
OPEN statement, 380 
actual arguments, 139 
agreement with dummy 
arguments, 139 
alternate return argument, 

132 

assumed-shape arrays, 56 
glossary, 613 
INTENT statement, 358 
keyword option, 144 
module procedures, 162 


procedure reference syntax, 
130 

adjustable arrays, 55 
glossary, 613 

ADJ USTL intrinsic function, 

490 

ADJ USTR intrinsic function, 

490 

ADVANCE = specifier 
nonadvancing I/O, 187 
READ statement, 412 
WRITE statement, 471 
AIMAG intrinsic function, 491 
Al MAXO intrinsicsfunction, 546 
AIMINO intrinsics function, 550 
AINT intrinsic function, 491 
AJ MAXO intrinsics function, 

546 

AJ Ml NO intrinsics function, 550 
AKMAXO intrinsics function, 
546 

AKMI NO intrinsics function, 

550 

ALARM routine, 593 
algebraic subroutines (BLAS), 
587 

alignment 

%F IL L field name, 440 
arrays, 22 
derived types, 44 
EQUIVALENCE statement, 
324 

intrinsic types, 22 
ALL intrinsic function, 492 
allocatablearrays, 59, 248, 249, 
250, 288 

DATA statement, 284 
glossary, 613 
initialization, 91 
ALLOCATABLE statement and 
attribute, 247 
allocatable arrays, 59 
deferred-shape arrays, 58 


TARGET statement, 449 
ALLOCATE statement, 249 
allocatable arrays, 59 
ALLOCATABLE statement, 
248 

array pointers, 59 
POI NTER statement, 400 
ALLOCATED intrinsic 
allocatable arrays, 60 
arrays, 78 

ALLOCATED intrinsicfunction, 
493 

allocatable arrays, 59 
arrays, 78 

DEALLOCATE statement, 288 
in expressions, 93 
allocating objects, 250 
allocation status, 59 
ALOG intrinsics function, 543 
ALOG10 intrinsics function, 543 
alternate entry points, 134 
ENTRY statement, 319 
alternate returns, 132 
function reference, 131 
in RETURN statement, 132 
procedure reference syntax, 

130 

RETURN statement, 425 
SUBROUTINE statement, 447 
AM AX1 intrinsics function, 546 
AMAXO intrinsics function, 546 
AM INI intrinsics function, 550 
AMINO intrinsics function, 550 
AMOD intrinsics function, 554 
ampersand (&) character 
alternate return, 130 
continuation character, 15 
AND intrinsicfunction, 493 
AN D operator, 84 
AN I NT intrinsicfunction, 494 
ANY intrinsicfunction, 495 
archive libraries 
glossary, 613 
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argument-checking, 148, 152 
argument-passing rules, 148 
arguments, 139 
actual, 130, 139, 358 
agreement, 139 
arrays, 140 

association, 124, 139, 263, 613 
bit manipulation intrinsics, 85 
defined operation, 155 
derived types, 142 
dummy, 128, 139, 358, 388 
glossary, 613 
in generic procedures, 154 
initialization, 91 
internal procedure, 135 
intrinsic procedures, 142, 484 
keyword option, 144, 613, 619 
modifying operands, 88 
optional, 145, 387, 487 
OPTIONAL statement, 387 
pointer dummy argument, 142 
presence, 388 
procedures as, 142 
scalars, 140 

sequence association, 140, 141 
arithmetic 
expressions, 82 
operands, 83 
operators, 82 

arithmetic IF statement, 337 
execution control, 117 
array constructors 
PARAMETER statement, 391 
RESHAPE intrinsic, 73 
specification expression, 92 
typeless constants, 31 
vector subscripts, 65 
array pointer 
glossary, 614 
array pointers, 47 
deferred-shape array, 59 
array sections, 63 
assignment, 96 


expressions, 81 
glossary, 614 
pointer assignment, 98 
subscript triplet, 64 
vector subscript, 65 
arrays, 51 

actual arguments, 56 
adjustable, 55 

allocatable, 59, 248, 249, 288 
ALLOCATED intrinsic, 78 
array constructors, 71 
array pointers, 47, 59, 614 
array-valued component 
reference, 68 

array-valued functions, 76 
as operands, 81 
assignment, masked, 466 
ASSOCIATED intrinsic, 78 
assumed-shape, 56 
assumed-size, 61 
automatic, 55 
bounds, 52, 294, 615 
conformable, 52 
constructors, 613 
deallocating, 288 
declaration, 54 
deferred-shape, 58 
derived type definition, 41 
DIMENSION statement, 54, 
293 

dimensions, 52 

dummy arguments, 55, 56, 61, 
140, 617 

element, 294, 613 
element order, 53, 613 
elemental intrinsicfunctions, 
477 

elements, 52 

EQUIVALENCE statement, 
325 

examples, 53, 56, 57, 59, 60, 
62, 65, 66, 69, 72, 74, 77 
explicit-shape, 55 


expressions, 74 
extent, 52 
fundamentals, 52 
glossary, 613 
I/O restrictions, 194 
initialization, 72, 91 
inquiry intrinsics, 478 
intrinsics, 76, 78, 484 
masked array assignment, 99 
operands, 74 
POINTER attribute, 56 
properties, 52 
rank, 52 

rank-one arrays, 63, 65, 71, 78 
scalar assignment, 96 
scalars in array expressions, 

74 

sections, 63 

sequence association, 140 
shape, 52 

SHAPE intrinsic, 78 
size, 52 

SIZE intrinsic, 78 
storage order, 53 
stride, 64 
subscripts, 52 
substring, 63, 65 
type declaration statement, 26 
UBOUND intrinsic, 78 
VIRTUAL statement, 464 
VOLATILE statement, 465 
WHERE construct, 466 
whole array, 52, 623 
zero-sized, 52, 64, 74 
array-valued 
glossary, 614 
intrinsicfunctions, 76 
structure-component 
reference, 68 

user-defined functions, 76 
ASA carriage control, 197 
asa command, 197 
blanks, 182 
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ASCII collating sequence 
ACHAR intrinsic, 488 
IACHAR intrinsic, 520 
LGE intrinsic, 540, 541 
LGT intrinsic, 540 
LLT intrinsic, 542 
ASIN intrinsic function, 496 
ASIND intrinsic function, 496 
ASINH intrinsic function, 497 
ASSIGN statement, 252 
assigned GO TO statement, 
334 

assigned GOTO statement, 334 
ASSIGN statement, 252 
execution control, 115 
assigning space to pointers, 400 
assignment, 79, 95 
array sections, 96 
assignment statement, 95 
defined, 157 
examples, 97 
intrinsic, 95 
masked array, 99 
mixed expressions, 96 
pointer assignment, 97, 450 
pointers, 95 
type conversion, 95 
WHERE construct, 99 
ASSIGN M E NT clause, 404, 408 
defined assignment, 157 
interface block syntax, 152 
INTERFACE statement, 361 
USE statement, 461 
ASSOCIATED intrinsic 
function, 497 

DEALLOCATE statement, 288 
disassociated pointers, 49 
in expressions, 93 
associated status (pointers), 48 
association, 124 
argument, 124, 139, 263 
arguments, 613 
duplicated, 146 


glossary, 614 
host, 124, 455, 618 
pointer, 97, 124, 288, 620 
sequence, 124, 140, 141, 621 
status, 288 

storage, 124, 273, 323, 432, 
622 

use, 124, 161, 371, 405, 409, 
455, 461, 623 
assumed-shape arrays, 56 
dummy argument, 140 
explicit interface, 151 
glossary, 614 
assumed-size arrays, 61 
dummy argument, 140 
expressions, 81 
glossary, 614 
pointer assignment, 98 
asterisk (*) character 
alternate return, 132 
comment character, 17 
variable character length, 269 
asynchronous process and 

VOLATILE statement, 465 
ATAN intrinsic function, 498 
ATAN2 intrinsic function, 498 
ATAN 2D intrinsic function, 499 
ATAND intrinsic function, 499 
ATANH intrinsic function, 500 
attributes, 25, 241 
ALLOCATABLE,247 
compatibility, 242 
DIMENSION, 293 
EXTERNAL, 328 
glossary, 614 
INTENT, 358 
INTRINSIC, 363 
OPTIONAL, 387 
PARAMETER, 391 
POINTER, 400 
PRIVATE, 404 
PUBLIC, 408 
SAVE,428 


STATIC, 434 
TARGET, 449 
VOLATILE, 465 
automatic arrays, 55 
glossary, 614 
automatic data objects 
automatic arrays, 55 
AUTOMATIC statement, 253 
character strings, 37 
DATA statement, 284 
glossary, 614 
initializing, 91 
AUTOMATIC statement and 
attribute, 253 
procedure definition syntax, 
129 

automatic variables, 253 
automatically opened unit 
numbers, 177 

auxiliary I/O statements, 188 
availability of intrinsic 
procedures, 476 

B 

B edit descriptor, 216 
BABS intrinsic function, 488 
backslash character 
C escape sequences, 34 
BACKSPACE statement, 254 
BADDRESS intrinsic function, 
500 

Basic Linear Algebra Subroutine 
library, 587 

BBCLR intrinsics function, 522 
BBITS intrinsics function, 523 
BBTEST intrinsics function, 501 
BDIM intrinsics function, 511 
BIAND intrinsics function, 521 
BIEOR intrinsics function, 526 
binary 

constants, 30 
edit descriptor, 216 
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BIOR intrinsicsfunction, 531 

CGEMV, 600 

DSBMV, 601 

bit 

CGERC, 600 

DSCAL, 601 

bit model, 481 

CGERU, 600 

DSPMV, 601 

bitwise intrinsics, 484 

CHBMV, 601 

DSPR, 601 

bitwise operators, 85 

CHEMM, 601 

DSPR2, 601 

glossary, 614 

CHEMV, 601 

DSTRSV, 602 

manipulation intrinsics, 85 

CHER, 601 

DSWAP, 601 

BIT_SIZE intrinsicfunction, 500 

CHER2, 601 

DSYMM, 601 

BITEST intrinsics function, 501 

CHER2K, 601 

DSYMV, 601 

BIXOR intrinsics function, 535 

CHERK, 601 

DSYR, 601 

BJTEST intrinsics function, 501 

CHPMV, 601 

DSYR2, 601 

BKTEST intrinsics function, 501 

CH PR, 601 

DSYR2K, 601 

blank 

CHPR2, 601 

DSYRK, 601 

comment line, 17 

classified, 600 

DTBMV, 601 

blank common 

CROT, 600 

DTBSV, 601 

block data program unit, 170 

CROTG, 600 

DTPMV, 602 

BLOCK DATA statement, 256 

CSCAL, 601 

DTPSV, 602 

COMMON statement, 275 

CSSCAL, 601 

DTRMM, 602 

glossary, 615 

CSWAP, 601 

DTRMV, 602 

blank common blocks 

CSYMM, 601 

DTRSM, 602 

COMMON statement, 273 

CSYR2K, 601 

DZASUM, 600 

blank edit descriptor, 218 

CSYRK, 601 

DZNRM2, 600 

B LAN K = specifier, 235 

CTBMV, 601 

1 CAM AX, 600 

B edit descriptor, 216 

CTBSV,601 

IDAMAX, 600 

BN and BZ edit descriptors. 

CTPMV, 602 

ISAM AX, 600 

218 

CTPSV,602 

IZAMAX, 600 

errors, 608, 609 

CTRMM, 602 

-Iblas option, 588 

INQUIRE statement, 345 

CTRMV, 602 

listed, 600 

OPEN statement, 380 

CTRSM, 602 

man pages, 591 

blanks 

CTRSV,602 

passing routine as argument. 

fixed format, 16 

DASUM, 600 

590 

free format, 14 

DAXPY,600 

SASUM, 600 

padding, 84, 540, 541, 542 

DCOPY, 600 

SAXPY,600 

BLAS 

DDOT, 600 

SCASUM, 600 

errors, 602 

DGBMV, 600 

SCNRM2, 600 

BLAS routines, 587 

DGEMM, 600 

SCOPY, 600 

accessing, 588 

DGEMV, 600 

SDOT, 600 

CAXPY,600 

DGER, 600 

SGBMV, 600 

CCOPY, 600 

DNRM2, 600 

SGEMM, 600 

CDOTC, 600 

DROT, 600 

SGEMV, 600 

CDOTU, 600 

DROTG, 600 

SGER, 600 

CGBMV, 600 

DROTM, 600 

SNRM2, 600 

CGEMM, 600 

DROTMG, 601 

SROT, 600 
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SROTG, 600 
SROTM, 600 
SROTMG, 601 
SSBMV, 601 
SSCAL, 601 
SSPMV, 601 
SSPR,601 
SSPR2, 601 
SSWAP, 601 
SSYMM, 601 
SSYMV, 601 
SSYR, 601 
SSYR2, 601 
SSYR2K,601 
SSYRK, 601 
STBMV, 601 
STBSV,601 
STPMV, 602 
STPSV, 602 
STRMM, 602 
STRMV, 602 
STRSM, 602 
STRSV,602 
XERBLA, 602 
ZAXPY,600 
ZCOPY, 600 
ZDOTC, 600 
ZDOTU routine, 
ZDSCAL, 601 
ZGBMV, 600 
ZGEMM, 600 
ZGEMV, 600 
ZGERC, 600 
ZGERU, 600 
ZHBMV, 601 
ZH E M M, 601 
ZHEMV, 601 
ZHER, 601 
ZHER2, 601 
ZHER2K, 601 
ZHERK, 601 
ZH PM V, 601 
ZH PR, 601 
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ZHPR2, 601 
ZROT, 600 
ZROTG, 600 
ZSCAL, 601 
ZSWAP, 601 
ZSYMM, 601 
ZSYR2K,601 
ZSYRK, 601 
ZTBMV, 601 
ZTBSV,601 
ZTPMV, 602 
ZTPSV, 602 
ZTRMM, 602 
ZTRMV, 602 
ZTRSM, 602 
ZTRSV,602 

block data program unit, 169, 
328 

glossary, 615 

BLOCK DATA statement, 256 
block data program unit 
syntax, 169 
END statement, 311 
statement order, 11 
block IF statement, 338 
blocks, statement, 104 
glossary, 615 

BMOD intrinsics function, 554 
BMVBITS intrinsics function, 
555 

BN edit descriptor, 218 
BNOT intrinsics function, 557 
bold monospace, xxii 
bounds 

array, 52, 55, 294 
glossary, 615 
BOZ constants, 30 
glossary, 615 
typeless constants, 31 
typing rules, 31, 32 
brackets, xxii 
curly, xxii 
branching, 115 


BSHFT intrinsics function, 533 
BSIGN intrinsics function, 572 
BTEST intrinsic function, 501 
BUFFER IN statement, 257 
BUFFER OUT statement, 259 
built-in functions, 148 
argument-passing rules, 148 
glossary, 615 

use with CALL statement, 264 
byte 

alignment, 22 
BYTE statement, 261 
data representation, 22 
glossary, 615 
type declaration, 24 
BYTE statement, 261 
type declaration statement, 24 
bytes-remaining edit descriptor, 
233 

BZ edit descriptor, 218 


C language 

argument-passing rules, 149 
C preprocessor 
directives, 8, 18 
CABS intrinsics function, 488 
CALL clause 
ON statement, 376 
CALL statement, 263, 264 
alternate returns, 131 
subroutine reference syntax, 
130 

calling a procedure, 130 
carriage control and ASA, 197 
CASE construct, 105 
CASE statement, 265 
END SELECT statement, 313 
SELECT CASE statement, 431 
CASE statement, 265 
CASE construct, 105 
initialization expressions, 91 
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categories 
BLAS routines, 600 
intrinsic procedures, 484 
Iibl) 77 routines, 592 
CAXPY routine, 600 
CCOPY routine, 600 
CCOS intrinsics function, 504 
CDABS intrinsics function, 488 
CDCOS intrinsics function, 504 
CDEXP intrinsics function, 516 
CDLOG intrinsics function, 543 
CDOTC routine, 600 
CDOTU routine, 600 
CDSIN intrinsics function, 573 
CDSQRT intrinsics function, 

576 

CEILING intrinsic function, 501 
CEXP intrinsics function, 516 
CGBMV routine, 600 
CGEMM routine, 600 
CGEMV routine, 600 
CGERC routine, 600 
CGERU routine, 600 
CHAR intrinsic function, 502 
character, 22 
actual argument, 148 
alignment, 22 

CHARACTER statement, 268 
character string edit 
descriptor, 210 
concatenation operator, 84 
constants, 34 
data representation, 22 
declaring, 24 
edit descriptor, 210 
equivalencing, 325 
glossary, 615 

hidden length parameter, 148 
H P character set, 8 
I/O errors, 605, 609, 610 
intrinsic procedures, 484 
list-directed I/O, 180, 181 
padding, 84 


relational expressions, 84 
sequence association, 141 
specifying length of variable, 
25 

string, 37, 615 
string (C language), 34 
substrings, 36 
type declaration, 24, 268 
variable length, 269 
character edit descriptor (A and 
R), 213 

CHARACTER statement, 268 
type declaration statement, 24 
characters 

ampersand (&), 15, 130 
asterisk (*), 17, 132, 269 
backslash, 34 
blank, 17 

comment characters, 15, 17 
control characters, 8 
dollar sign ($), 9 
double quote, 34 
escape, 34 

exclamation mark (!), 15, 17 
pound sign (#), 8, 18 
semicolon, 14, 16 
single quote, 34 
slash (/), 26 
tab, 18 

underscore (_), 588 
whitespace, 8 
CHBMV routine, 601 
CH Dl R routine, 593 
CHECK_OVERFLOW directive 
ON statement, 378 
checking, argument, 148, 152 
CHE MM routine, 601 
CHEMV routine, 601 
CHER routine, 601 
CH ER2 routine, 601 
CHER2K routine, 601 
CH ERK routine, 601 
CHMOD routine, 593 


CH PM V routine, 601 
CH PR routine, 601 
CH PR2 routine, 601 
clauses 
ABORT, 376 

ASSIGNMENT, 404, 408, 461 

CALL, 376 

DEFAULT, 265 

IGNORE, 376 

IN,358 

INOUT, 358 

NONE, 340 

ONLY, 461 

OPERATOR, 404, 408, 461 
OUT, 358 

RECURSIVE, 320, 332, 447 
RESULT, 319, 320, 332 
THEN, 338 
TO, 252 
WHILE, 297 

CLOG intrinsics function, 543 
CLOSE statement, 271 
errors, 608 

CMPLX intrinsic function, 502 
collating sequence, ASCII, 541 
ACHAR intrinsic, 488 
IACHAR intrinsic, 520 
LGE intrinsic, 540 
LGT intrinsic, 540 
LLT intrinsic, 542 
colon edit descriptor, 212 
column position in fixed format, 
16 

column-major order, 53 
glossary, 615 
command syntax, xxiii 
comment character, 8, 18 
comments 

C preprocessor directives as, 8, 
18 

extensions, 8, 18 
fixed format, 17 
free format, 15 
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statement order, 12 
common block 
blank, 615 
common blocks 
blank, 170, 256, 273, 275 
block data progam unit, 169 
BLOCK DATA statement, 256 
COMMON statement, 273 
Cray-style pointers, 274 
derived types, 41 
dummy arguments, 274 
equivalencing, 323, 326 
glossary, 615 
initializing, 256 
pointers, 397 
record extension, 422 
result variables, 320 
SAVE statement, 429 
saved variables, 429 
scope, 123 

sequence derived types, 432 
unnamed, 170, 256, 275 
VOLATILE statement, 465 
COMMON statement, 273 
block data program unit, 169 
Cray-style pointers, 398 
SEQUENCE statement, 432 
storage association, 124 
compatibility, attribute, 242 
compile-line options 
-fonetrip, 108 
glossary, 615 
compiler directives 
glossary, 615 
statement order, 12 
complex, 22 
alignment, 22 
assigning constants, 32 
COMPLEX statement, 277 
constants, 34 
data representation, 22 
declaring, 24 


DOUBLE COMPLEX 
statement, 301 
edit descriptors, 210 
expressions, 82 
I/O errors, 606 
list-directed I/O, 180, 181 
type declaration, 24, 277 
COMPLEX statement, 277 
type declaration statement, 24 
component, 41 
array-valued component 
reference, 68 
glossary, 615 

composite record references, 420 
computed GOTO statement, 
116, 335 

concatenation operator, 84 
conformable arrays, 52 
DIMENSION statement, 294 
glossary, 616 
WHERE construct, 99 
CONJ G intrinsic function, 503 
connecting files for I/O, 175 
glossary, 616 
constants, 29 
binary, 30 
BOZ, 30, 615 
character, 34 
complex, 34 
examples, 90 
expressions, 89, 616 
format, 29 
glossary, 616 
hexadecimal, 30 
Hollerith, 30 
integer, 29 
intrinsic types, 29 
logical, 35 
named, 29, 92 
octal, 30 

PARAMETER statement, 391 
real, 33 

specification expressions, 92 


truncation, 32 
typeless, 31, 622 
constructors 
array, 65, 71 
structure, 43 
constructs 
CASE, 105, 431 
DO, 107 
END DO, 313 
END IF, 313 
END SELECT, 313 
END WHERE, 313 
execution control, 104 
glossary, 616 
IF, 111, 338 
names, 9 
WHERE, 99, 466 
CONTAINS statement, 280 
internal procedure, 135 
main program unit syntax, 126 
module syntax, 162 
procedure definition syntax, 
129 

scoping units, 12 
statement order, 11 
continuation lines 
fixed format, 17 
free format, 15 
CONTINUE statement, 282 
execution control, 113 
control characters, 8 
control constructs, 103, 107 
CASE, 105 
DO, 107 
IF, 111 
nested, 104 

conversion, type, 82, 84 
COS intrinsic function, 503 
COSD intrinsic function, 504 
COSH intrinsic function, 504 
COUNT intrinsic function, 505 
Cray-style pointers, 397 
common blocks, 274 
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restrictions, 397 
syntax, 397 
CROT routine, 600 
CROTG routine, 600 
CSCAL routine, 601 
CSHIFT intrinsic function, 506 
CSIN intrinsics function, 573 
CSQRT intrinsics function, 576 
CSSCAL routine, 601 
CSWAP routine, 601 
CSYMM routine, 601 
CSYR2K routine, 601 
CSYRK routine, 601 
CTAN intrinsics function, 580 
CTBMV routine, 601 
CTBSV routine, 601 
CTIME routine, 593 
CTPMV routine, 602 
CTPSV routine, 602 
CTRMM routine, 602 
CTRMV routine, 602 
CTRSM routine, 602 
CTRSV routine, 602 
curly brackets, xxii 
CYCLE statement, 283 
execution control, 113 

D 

-tdlines option 
debugging lines, 17 
D edit descriptor, 219 
DABS intrinsics function, 488 
DACOSD intrinsics function, 

489 

DACOSH intrinsics function, 

490 

DASIN intrinsics function, 496 
DASIND intrinsics function, 496 
DASINH intrinsics function, 497 
DASUM routine, 600 
data declaration statements 
BYTE, 24, 261 


CHARACTER, 24, 268 
COMPLEX, 24, 277 
DOUBLE COMPLEX, 24, 301 
DOUBLE PRECISION, 303 
INTEGER, 24, 355 
LOGICAL, 365 
REAL, 24, 417 
data initialization 
BLOCK DATA statement, 256 
DATA statement, 284 
data list, I/O, 192 
data representation 
models, 480 
selecting, 22 

DATA statement, 26, 284 
array constructors, 72 
automatic variables, 253 
BLOCK DATA statement, 256 
BOZ constants, 30 
Cray-style pointers, 397 
IMPLICIT statement, 340 
initialization expressions, 91 
PARAMETER statement, 393 
scoping units, 12 
statement order, 11 
data transfer statements, 188 
ACCEPT, 245 
DECODE, 290 
ENCODE, 308 
FORMAT, 330 
NAMELIST, 373 
PRINT, 402 
READ, 411 
WRITE, 470 
data types, 21 
bit representation, 481 
BYTE statement, 261 
character, 22 

CHARACTER statement, 268 
complex, 22 

COMPLEX statement, 277 
data representation models, 
480 


derived types, 39 
DOUBLE COMPLEX 
statement, 301 
DOUBLE PRECISION 
statement, 303 
glossary, 616 
integer, 22 

integer representation, 482 
INTEGER statement, 355 
logical, 22 

LOGICAL statement, 365 
pointers, 47 
real, 22 

real representation, 482 
REAL statement, 417 
DATAN intrinsics function, 498 
DATAN2 intrinsics function, 499 
DATAN 2D intrinsics function, 

499 

DATAN D intrinsics function, 

500 

DATAN H intrinsics function, 

500 

date and time 
intrinsic procedures, 484 
IibU77 routines, 592 
DATE intrinsic subroutine, 507 
DATE_AND_TIME intrinsic 
subroutine, 507 
DATEY2K,593 
DAXPY routine, 600 
DBLE intrinsic function, 509 
DBLEQ intrinsics function, 509 
DCMPLX intrinsic function, 509 
DCONJ G intrinsics function, 

503 

DCOPY routine, 600 
DCOS intrinsics function, 489, 

504 

DCOSD intrinsics function, 504 
DCOSH intrinsics function, 504 
DDIM intrinsics function, 511 
DDINT intrinsics function, 491 
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DDOT routine, 600 
DEALLOCATE statement, 288 
allocatablearrays, 59 
ALLOCATE statement, 250 
deallocating objects, 288 
debugging lines, 17 
declaring data 
arrays, 54 

BYTE statement, 24, 261 
CHARACTER statement, 24, 
268 

COMPLEX statement, 24, 277 
derived types, 43 
DOUBLE COMPLEX 
statement, 24, 301 
DOUBLE PRECISION 
statement, 24, 303 
INTEGER statement, 24, 355 
intrinsic types, 24 
LOGICAL statement, 24, 365 
REAL statement, 24, 417 
DECODE statement, 290 
ENCODE statement, 309 
DEFAULT clause 
CASE statement, 265 
deferred-shape arrays, 58 
glossary, 616 
defined assignment, 157 
glossary, 616 
defined operators, 155 
glossary, 616 
definition 
derived types, 40 
procedures, 128 
DELIM=specifier 
errors, 612 

INQUIRE statement, 346 
list-directed I/O, 181 
list-directed output, 181 
OPEN statement, 381 
delimiters for character 
constants, 34 
demand-loadable 


glossary, 616 
derived types, 39 
arguments, 142 
array-valued component 
reference, 68 
basic operations, 39 
common blocks, 41 
components of same type, 42 
declaration, 454 
defining, 40, 457 
edit descriptor, 210 
EQUIVALENCE statement, 
323 

equivalencing, 41 
example program, 45 
glossary, 616 
naming, 457 

PRIVATE statement, 40, 405, 
457 

PUBLIC statement, 40, 409, 
457 

sequencederivedtype, 41,432, 
621 

SEQUENCE statement, 40, 

41, 432 

structure component, 41 
structure constructor, 43 
TYPE statement, 454, 457 
DEXP intrinsicsfunction, 516 
DFLOAT intrinsic function, 510 
DFLOTI intrinsics function, 510 
DFLOTJ intrinsics function, 510 
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SAVE statement and attribute, 
428 

allocatablearrays, 60 
automatic arrays, 55 
automatic variables, 253 
module syntax, 161, 162 
PARAMETER statement, 391 
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array section, 63 
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BOZ constants, 30 
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DOUBLE PRECISION, 24, 

303 


examples, 27 
glossary, 622 
implicit typing, 28 
initialization, 26 
initialization expressions, 91 
INTEGER, 24, 355 
intrinsic types, 24 
LOGICAL, 24, 365 
REAL, 24, 417 
RECORD, 420 
syntax, 24 

TYPE (definition), 457 
TYPE statement 
declaration, 454 
definition, 457 
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